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So werden Fehlerquellen vermieden! 



COMPUTRONIC-CHECKSUMMER 



Achtung! . . . Achtung! . . . Computronic-Checksummer jetzt auch für den VC-20Ü 



Nach dem großen Zuspruch unseres Checksummers für die Systeme C-64 
und Schneider, hat unser Spezialist Frank Brall jetzt auch eine Version für 
den VC-20 entwickelt. Dadurch sollen die Vorteile unseres Prüfsummenver- 
fahrens auch den VC-Freunden zugute kommen. Tippfehler und unklare 
Steuerzeichen gehören damit der Vergangenheit an. 
Für unsere neu hinzugekommenen Leser drucken wir an dieser Stelle noch 
einmal die Bedienungsanleitung für die gesamten Checksummer ab. Nach 
C-64, CPC-464 und VC-20 arbeitet jetzt unserer Spezialist an einem Prüf- 
summenverfahren für den C-16/116. Wir hoffen, diesen Checksummer bald 
vorstellen zu können. 



Eingabe-Hinweise 
für Commodore-C-64/ 
VC-20-Benutzer! 

Um die Eingabe unserer Li stings zu erleich- 
tern, werden zukünftig alle C-64/VC-20- 
Listings ohne Steuerzeichen abgedruckt. 
Alle Steuerzeichen werden in unseren LI- 
STINGS durch Klartext, welcher die Taste 
kennzeichnet, ersetzt. Eine Tabelle der Ta- 
stenfunktionen finden sie in jedem Tronic- 
Magazin. 



Das Beispiel auf Seite 7 demonstriert 
die Arbeitsweise unseres. Systems! 



Wie in dem Beispiel zu erkennen ist, wird 
beispielsweise das Herz-Symboi durch das 
Wort CLEAR ersetzt. Dies bedeutet, Sie 
müssen die Taste CLEAR drücken, um das 
Herz-Symbol zu erzeugen. Sollten Sie ein- 
mal nicht wissen, welche Taste gemeint ist, 
so hilft Ihnen schnell unsere Tastentabelle, 
welche in jedem Magazin abgedruckt ist. 
Um im Listing Tastenbezeichnungen von 
Grafik oder normalen Texten zu unter- 
scheiden, werden alle Tastenkennzeich- 
nungen in geschweifte Klammern gesetzt. 
Diese dürfen selbstverständlich nicht ein- 
gegeben werden. Auch Leerzeichen inner- 
halb geschweifter Klammern dienen nur 
zur Trennung einzelner Tastenfunktionen 
und dürfen ebenfalls nicht eingegeben 
werden. Um die Tastenfunktionen noch 
besser hervorzuheben, werden diese in un- 
terstrichener Kursivschrift (Schrägschrift) 
abgedruckt. 

Steht hinter einer Tastenfunktion eine 
Zahl, welche ebenfalls unterstrichen ist, so 
bedeutet dies, daß die letzte Tastenfunk- 



tion mehrmals betätigt werden muß. Die in 
unserem Beispiel abgedruckte Funktion 
RIGHT3 bedeutet, daß die Taste RIGHT 
(Cursor rechts) 3 mal hintereinander betä- 
tigt werden muß. Auch einzelne oder auch 




Schon gehört? Bei COMPU- 
TRONIC gibt's den Checksum- 
mer jetzt auch für VC-20! 



mehrere Leerzeichen innerhalb von An- 
führungszeichen werden auf diese Art ge- 
kennzeichnet. Das bislang übliche Abzäh- 
len einzelner Zeichen entfällt somit völlig. 
Alle Zeichen außerhalb von den ge- 
schweiften Klammern werden normal ab- 
gedruckt und auch eingegeben. 
Auf den ersten Blick hört sich das sicher et- 
was kompliziert an, ist jedoch in der Praxis 
ganz einfach. Wenn man sich erst einmal 
an die in Klartext geschriebenen Steuerzei- 
chen gewöhnt hat, wird man den großen 
Vorteil dieser Schreibweise erkennen. 

Checksummer C 

Version 1.0 

für Commodore 64 

Checksummer vl.O ist ein Prüfsummen- 
Programm, das die Eingabe von Pro- 
gramm-Listings zum wahren Vergnügen 
macht. Tippfehler werden schon während 
des Eingehens der einzelnen Programm- 
zeilen erkannt. Dieses System, zusammen 
mit einem neuen Druckverfahren, gewähr- 
leisten, daß unsere Listings zu 99.9% feh- 
lerfrei abgedruckt werden. 

Arbeitsweise und Aufbau unseres Check - 
summers: 

Unser Checksummer besteht aus einem 
kleinem Maschinenprogramm, welches als 
Basic-Loader abgedruckt ist. 
Tippen Sie diesen Loader ein und spei- 
chern Ihn auf Kassette oder Diskette ab; 
Sie können Ihn zukünftig immer wieder 
benutzen. Der Start erfolgt durch den Be- 
fehl „RUN". Nach kurzer Zeit meldet sich 
der Rechner mit der Meldung „TRONIC". 
Der Checksummer ist nun aktiv. Nun kann 
man ein beliebiges Tronic-Listing einge- 
ben. Nachdem eine Zeile mit RETURN ab- 
geschlossen wird, erscheint links oben auf 
dem Schirm eine Prüfzahl. Vergleichen Sie 
diese mit der Zahl, welche im Heft hinter 
diese Zeile abgedruckt ist. Stimmen die 
Zahlen überein, so ist die Zeile richtig ein- 
gegeben; ansonsten muß sich noch ein 
Fehler in Ihre Eingabe eingeschlichen ha- 
ben, und Sie müssen die Zeile korrigieren. 
Auf die'se Weise können Sie das gesamte 
Listing schnell und fehlerfrei eingeben. 
Interressant ist auch, daß bei der Eingabe 
von Zeilen die üblichen Abkürzungen be- 



Lesen Sie weiter auf Seite 6! 
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INTERCEPTOR BASE 

Ronald Mayer, Software -Champion des 
Jahres 1985, hat wieder einmal zuge- 
schlagen! Mit Interceptor Base ist ihm 

einmal mehr ein wahres Meisterwerk 
gelungen. Schon beim ersten Blick auf 
das Spiel fallen seine außergewöhnlich 
gute Grafik und die enorm hohe Spiel- 
geschwindigkeit auf. Interessant auch 
die Spielidee: Was anfangs nach einer 




alltäglichen Routineaufgabe aussieht, 
entwickelt sich binnen kürzester Zeit zu 
einem Kampf auf Leben und Tod! Denn 
kaum sind Sie mit Ihrem Düsenjäger zu 
einem Patrouillen fl ug gestartet, da wer- 
den Sie von feindlichen Abfangjägern 
angegriffen. Es entbrennt ein „Fight", 
den Sie nur dann bestehen können, 
wenn Sie all Ihr Geschick und Können 
spielen lassen. (bez.) 

Seite S 
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SCHOTTER 

Bei diesem Spiel geht es um bare „Kohle"! 
Und zwar um die „Penunzc" des TRONIC- 
Verlages - das allein macht SCHOTTER 
doch sicher für Sie interessant, oder? Doch 
nun genug der Vorrede, wir wollen Sie 
nicht länger auf die Folter spannen. Die 
Handlung von SCHOTTER ist im wahr- 
sten Sinn des Wortes originell: Nachdem 




Sie im Schweiße Ihres Angesichts ein Soft- 
ware-Programm fertiggestellt haben, müs- 
sen Sie nur noch in Wehretal (Sitz des 
TRONIC-Verlages) Ihr Autorenhonorar 
eintreiben. Um aber in den Besitz des sau- 
erverdienten „Schotters" zu kommen, 
müssen Sie zunächst einmal einige Hür- 
den überspringen! (bez.) 
Seite 15 
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Lieber Leser! 

Auf vielfachen Wunsch hat sich 
die Redaktion entschlossen, die 
in COMPUTRONIC veröffentli- 
chen Computer-Spiele unserer 
Software-Autoren in verkürzter 
Form zu Beginn des Heftes vorzu- 
stellen. Im Innenteil der Ausgabe 
erhalten Sie dann weitere aus- 
führliche Informationen. Leider 
war es uns diesmal noch nicht 
möglich, zu jedem Spiel ein Bild- 
schirmfoto abzudrucken; wir wer- 
den uns aber bemühen, in Zu- 
kunft auch dies für Sie zu realisie- 
ren. 

Wir hoffen, daß diese kleine Ser- 
vice-Leistung auf Ihre Zustim- 
mung stößt und würden uns 
freuen, wenn Sie uns Ihre Mei- 
nung hierzu mitteilen. Schreiben 
Sie uns doch einfach mal. 

Die Redaktion 



Egg 

MINER 

DER FASS ADENSTREICHER 

Mit Miner, der Fassadenstreicher können 
wir Ihnen ein „Gerüstspiel" der Spitzen- 
klasse präsentieren! Miner, der Fassaden- 
streicher muß zu seinem Leidwesen fest- 
stellen, daß Handwerk nicht nur „goldenen 
Boden" hat, sondern mitunter auch sehr 
gefährlich werden kann. Während Miner 
nichtsahnend und fröhlich pfeifend seiner 



TOUBSSPIH- 
SUPER GRAFIK! 



Arbeit nachgeht, haben es einige finstere 
Zeitgenossen (vielleicht eine Konkurrenz- 
firma?) darauf abgesehen, ihn in schwin- 
delnder Höhe von seinem wackligen Ge- 
rüst zu stoßen. Da gerät Miner un Verse- 
hens ja in einen ganz schönen Schlamassel! 
Aber als „alter Hase" auf dem Gerüst wird 
es ihm schon gelingen, seinen Gegnern zu 
entgehen, oder. . .? (bez.) 

Seite 20 




INKA-SCHATZ 

Begleiten Sie den großen spanischen Ero- 
berer Hernando Cortez auf seiner aben- 
teuerlichen Schatzsuche im Land der In- 
kas! Aber seien Sie vorsichtig; im heißen 
Mexiko lauern tausend Gefahren auf Sie! 
Nicht nur die Inkas machen Ihnen das Le- 
ben schwer, sondern auch allerhand Getier 
hat es auf Sie abgesehen. Wenn Sie also 
den Inka-Schatz bergen wollen, so müssen 
Sie sich erst einmal mit wilden Hunden, 
angriffslustigen Adlern und giftigen 
Schlangen auseinandersetzen. Dieses 
Spiel wird Ihnen Ihr ganzes Können abver- 
langen! (bez.) 

Seite 24 
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HORROR CASTLE 

Ein Spiel für Leutö, die's schaurig mögen. 
Ihr vermögender Urgroßvater hat Ihnen 
ein altes Schloß vermacht (soweit ist das ja 
noch ganz angenehm). Doch das Gemäuer 
liegt im mystischen schottischen Hoch- 
land, und da wird's einem nun allmählich 
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doch schon etwas „mulmig". Doch trotz al- 
ler Bedenken und Warnungen machen Sie 
sich auf den Weg, Ihr Erbe anzutreten. 
Aber erst einmal in der alten Burg ange- 
kommen, sollen Sie Ihren Entschluß sehr 
schnell bereuen. Denn Horror Castle 
macht seinem Namen alle Ehre! (bez.) 
Seite 27 



FANTASY COUNTRY 




Fantasy Country entführt Sie in eine bezau- 
bernde, märchenhafte Welt voller Aben- 
teuer. Will man etwas über die Handlung 
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des Spiels sagen, so fällt einem spontan die 
Geschichte um „Sterntaler" ein, denn ge- 
nau dies ist Ihre Aufgabe: Sie müssen im 
Fantasy Country möglichst viele Sterne ein- 
sammeln, und diese sind gleichzeitig das 
einzige, was Sie im „Land der Phantasie" 
berühren dürfen. Das ist wahrlich nicht 
einfach, denn es tummelt sich so einiges 
auf dem Bildschirm! (bez.) 

Seite 35 



SPECTRUM 



OTTO SCHWEINSOHR 

Nicht umsonst wurde Otto Schweinsohr zu 
einem der Top-Spiele erkoren. Wie schon 
der Titel vermuten läßt, liegt diesem Spiel 
eine überaus originelle Idee zugrunde. Ot- 
to Schweinsohr führt einen unerbittlichen 




Kampf gegen den fürchterlichen Clan der 
Raubkopierer. Doch nicht nur diese haben 
es auf Otto abgesehen, sondern auch der 
interstellare Geheimdienst verfolgt ihn 
wegen eines Vergehens gegen zahlreiche 
Vorschriften. (bez.) 

Seite 39 
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PAC Bo y 

Immer wenn er Pillen nahm, seine große 
Stunde kam! Helfen Sie PacBoybei seiner 
Jagd nach den kraftspendenden Pillen. Er 
braucht diese „Super-Dragees" so drin- 
gend wie andere das täglich' Brot! Pac 
Boy's Reise durch ein finsteres Labyrinth 
kostet den kleinen Burschen eine Menge 
Energien. Um neue Kräfte sammeln zu 
können (die im Kampf gegen das gefährli- 
che Pac-Monster auch dringend benötigt 
werden), gibt es nur ein Mittel: (fr)essen, 
was das Zeug hält! Die ansprechende 
Grafik macht das Spiel wirklich sehenswert 
- am besten, Sie überzeugen sich 
selbst! (bez.) 

Seite 48 
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Im Zuge des „Becker-Booms" kann man 
fast nicht mehr anders - man muß sich ein- 
fach für Tennis interessieren! Mit Top Ten- 
nis haben wir da für Sie genau das richtige 
Spiel „an Land gezogen". Schlüpfen Sie in 
die Haut des „Bunde s-Boris", und fegen 
Sie Ihre Gegner reihenweise vom Platz. 
Aber bis Sie es so weit gebracht haben, 
müssen Sie schon hart trainieren, denn Top 
Tennis stellt außerordentlich hohe Anfor- 
derungen an den Spieler! (bez.) 
Seite 52 
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PANZERSCHLACHT 

Panzerschlacht bringt Ihnen die Action ins 
Haus! Steuern Sie Ihren Tank durch die 
gegnerischen Linien, aber lassen Sie alle 
Vorsicht walten, denn der Feind ist Ihnen 
zahlenmäßig weit überlegen! 15mal stärker 
sind die angreifenden Truppenverbände - 
da brauchen Sie schon Ihr ganzes Ge- 
schick, aber auch ein wenig Glück, um in 
diesem aussichtslos erscheinenden Kampf 
bestehen zu können. Panzerschlacht beein- 
druckt durch seine enorme Spielgeschwin- 
digkeit - Sie werden staunen (aber staunen 
Sie nicht zu lange, der Feind macht sonst 
kurzen Prozess mit Ihnen)! (bez.) 

Seite 61 
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MIDNIGHT 




Seien Sie vorsichtig bei Mdnight) In die- 
sem spannenden Spiel haben Sie es mit 
schaurigen Gespenstern zu tun, die ein 
halb verfallenes, verrufenes Haus heimge- 
sucht haben. Um Mitternacht kommt es 
dann zu der letzten, alles entscheidenden 



Auseinandersetzung mit den Geistern. Ob 
Sie diesen Ausgeburten der Hölle wohl ge- 
wachsen sind 9 ! (bez.) 
Seite 65 
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HORROR CAVES 

Gänsehaut gefällig? Bitte - wenn Sie es 
nicht anders wollen! Dann steigen Sie mal 
ein in unseren „Horror-Express", und fol- 
gen Sie uns in die Geister-Höhlen der Pyre- 
näen. Wir versprechen. Ihnen das absolute 
Grauen. Na, nun ist Ihnen wohl doch nicht 
mehr ganz wohl zumute? Aber jetzt ist es 
zu spät, nun gibt es kein Zurück mehr. Der 
Zug rollt, und er wird erst wieder in den 
Horror Caves zum Stehen kommen, (bez.) 
Seite 71 
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THAI BQXING 

Sind Sie ein Anhänger der Selbstverteidi- 
gung? Mögen Sie Kampfsportarten? Inter- 
essieren Sie sich für die asiatische Form 
des Kämpfes? Wenn Sie diese Fragen mit 
Ja" beantworten, dann ist Thai-Boxmg" 
für Sie genau das Richtige ! So wie derThai- 
Boxer eiserne Nerven und absolute Kör- 
perbeherrschung aufbringen muß, benöti- 
gen Sie jede Menge Geschick und Aus- 
dauer. Um es kurz zu sagen: Thai-Boxmg 
ist wahrlich ein echter „Klopper"! (bez.) 
Seite 75 
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nutzt werden können, ohne die Checksum- 
me zu verändern, Leerzeichen außerhalb 
von Anführungszeichen werden ignoriert, 
da diese auf die Ausführung der einzelnen 
Befehle keinen Einfluß haben. Sie können 
Ihr Programm auch starten, denn der 
Checksummer und Ihr Programm beein- 
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Aussen sich nicht gegenseitig. Wollen Sie 
den Checksummer abschalten, so geben 
Sie einfach „POKE 1,55" ein oder betätigen 
die Tasten-Kombination „RUNSTOP und 
RESTORE". Aktivieren können Sie den 
Checksummer jederzeit (auch nach RE- 
SET) mit „POKE 1,53". 
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Wer den Checksmumer nicht eingeben 
möchte, kann diesen auch unter der fol- 
genden Bestellnummer beziehen: 

Bestell-Nr. CV1 OK /Kassette 10 DM 
CV10D /Diskette 15 DM 



C64 LISTING MIT CHECKSUMMEN (C VI . O) 

REM ***** TRONIC CHECKSUMMER ***** 

1 REM VERSION C 1.0 BEI FRANK BRALL 

2 REM 

3 FÜR 1=832 TO 1008: READ A:S=S+A 

4 POKE I,A;NEXT I:IF SO 16397 THEN PRINT 
" FEHLER {SPACE! I N {. SPACES DATA-ZE I LEN <£PACE_ 
> '■ iSPACE! ( 10-19) " : STOP 

5 SYS B32:S=0:FQR 1=58464 TO S8603:READ 
A : S=5-+-A 

6 POKE I,A:NEXT I:IF S01S919 THEN PRINT 
"FEHLER { SPACE ! lti£SPACE!IiATG-ZEILEH£SPACE_ 
5 ! {. SPACE ! (29-36) "sSTOP 

7 S=0:FOR 1=48979 TO 490Ü5=READ A: S=S+A 
S PGKE I,A:NEXT IilF BOZB88 THEN PRINT" 
FEHLER { SR4CE ? IN {.SPACE? DATA-ZEILEN {.SPACE! 

! {. SPACE ! (46-47) " : STOP 

9 PRINT" < POtfW2 >AKTIVIEREN-CSP/ICO= (SPACE! 
POKE {SPACE! 1 , 53 I SPACE1S ! AUSSCHALTEN: { SPA 
CE ! POKE { SPACE! 1 ,55": NEW 

10 DATA1 69, 0,133, 254, 162, 1,1 39,137,3,1 33 
,255,160,0,177,254,145,254,136 

11 DATA208, 249, 230, 255, 165,255,221, 139,3 
,20S, 238,202, 16,230 , 169, 96 , 141 ,49 

12 DATA 165, 16«?, 228, 141 ,50 , 165, 169,53, 133 
,1 ,169,141,133,254,162,3,134,255 

13 DATA160, 0,177, 254, 240, 7, 32, 202,241,20 
0,76,120,3,169,2,141,32,208 

14 DATA96, 160 .,224, 192, 0,147,17,32, 32, 35, 
35 , 35 , 35 , 32 , 84 , 82 , 79 , 78 



<116> 

<io> 

<148> 
<6B> 



<32> 
<21> 



<219> 
<33> 



<23> 

<26> 
<176> 
<147> 
*s 225 > 
< 1 40 > 
<158> 



15 DATA73, 67, 45, 86, 69, 82,76, 65, 71, 32, 67, 
72,69,67,75,83,85,77 

16 DATA77,69,B2,32,35,35,35,35, 139,13, 13 

, 32 , 32 , 32 , 32 , 32 , 32 , 32 

17 DATA32, 32, 32, 32, 32, 86, 69, 82, 83, 73, 79, 

78,32,67,32,49,46,48 

18 DATA13, 13, 32, 32, 32, 32, 32, 32, 40, 67, 41, 
32,70,82,65,78,75,32 

19 DATA66, 82, 65, 76, 76, 32, 40,49,48, 46, 56, 

53,41,13,0 

29 DATA169, 0,141,107, 191, 141 ,108,191,141 
.109,191,160,2,24,177,95,200,113 

30 DATA95,141,109,191 ,160,3,200,177,95,2- 
40, 44, 201, 34, 20B, 10, 173, 107, 191 

31 DATA73, 1 , 141 , 107, 191 , 177,95, 174 , 107 , 1 
91 -20B, 4, 201 ,32,240,228,238, 108 

32 'DATA191, 174, 108, 191, 24, 177, 95, 109,109 
. 191 , 141 , 109, 191 ,202,208, 244, 76, 1 20 

33 DATA228, 56, 76, 183,228,72,32,201,255,1 
70,104,144,1 ,13S, 96,32, 240,255 

34 DATA142, 105, 191, 140,106, 191 ,162,0,160 
,0,24,32,240,255,169,91 ,32, 12 

35 DATA225, 169, 0,174, 109, 191, 32, 205, 189, 
169,93,76,83,191,173,33,208,145 

36 DATA243,96,105,2,164,145,200,20B,4,19 
7,161,208,247,96 

46 DATA32, 12,225,32,63, 171 ,32,63, 171 ,172 
,1Q£,, 191, 174, 105,191, 24,32,240 

47 DATA255,76, 128, 164,24,0,0,5,200 
ENDE DES LISTINGS 



<129> 

<147> 

<79> 

<94> 

<12> 

<7> 

<91> 

<12B> 

<244> 

<101> 

<S9> 

<239> 

<202> 

<213> 

<65 > 



Checksummer für 

COMMODORE 64- 



Checksummer VC 1.0 
für VC-20 



Ebenso wie der C-64-Checksummer be- 
steht auch das VC-20-Programm aus einer 
kleinen Maschinenroutine. Aus Speicher- 
platzgründen konnte jedoch dieses Pro- 
gramm nicht „unter" dem ROM abgelegt 
werden, sondern hier mußte der bekannte 
Kassettenpuffer herhalten. Dies hat den 
Vorteil, daß kein Basic-Speicher verloren 
geht. Der Nachteil besteht darin, daß nach 
der Aktivierung des Checksummers keine 
Kassettenoperationen durchführbar sind. 



da diese den Kassetten puffe r benötigen. 
Um die Kassettenoperationen wieder zu 
ermöglichen, muß der Checksummer 
durch den Befehl „SYS 58459", sowie 
durch das Betätigen der Tasten STOP/RE- 



STORE, abgeschaltet werden. Aktiviert 
wird der Checksummer mit SYS 828. Die 
Funktion und Arbeitsweise stimmt mit 
dem C-64-Checksummer überein und 
kann dort nachgelesen werden. 







1 REM *.*#*-**-****■******************* 


<176> 


2 REM CHECKSUMMER VC 1 . O 


<126> 


3 REM VC 20 VERSION 


<8> 


4 REM COPYRIGHT FRANK BRALL 


< 1 26 > 


5 REM TRON I C-VER.LAG 


<228> 


6 REM ***************************** 


<18i> 


7 REM 


<150> 


lO PRINT" iCt£AR DOUN SPACE! CHECKSUMMER iS 




f>ACE!Vr:{SPACE! 1 . Q{SPACE2! " 


<216> 
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-SU* 1 



m« r 



20 PRINT "i DOM! COPYRIGHT iSPACEyFRANKiSP_ 
ACE! BfiALL " 



Z SPACE yOZ. 01 . B6-CSP4 



30 PRINT "I D0HN 2-- 

C£j. 

35 PRINT " t BÖUH SPACE4- T. TRON I C- VERLAG " 

60 DA=Q:FDRI= 8:28 TD 1O20 

61 READ DA : SU=SU-*-DA 

62 POKE I , DA 

63 NEXT I 

65 IF SU022919 TUEN PR 1 1MT " Z DÖUN l FEHLER £ 
SPACE ! IbitSPACElDATA-ZEILEHi SPACE l ! " : END 

70 PRINT" Cgg*W>" 

71 PRINT" AKT I VI EREUZ SPACES- =SYS<:SPACEJ 32a 

72 P R I NT " ABSCHALTEN { SPACE ! =SYS C SPACE 5 584 
59" 

73 PRINT" VOR -iSPACEl- BETRIEB H SPACE}- DBRiSPA 
C£JDATA-" 

74 PRINT"SETTE<SPjqCE3DEN{SP4Cf} CHECKSUMM 
ER" 

75 PRINT" ABSCHALTEN £g£££0 UND CSPACTi DIE" 

76 PRINT"TASTEN-rSP4CE3-ST0P/RESTQRE" 

77 PRI NT" BETAETI GEN iSPACEl - ! " 

SO POKE B16,116-.PDKE BIS, 116: POKE B17,19 
6: POKE 819, 196s REM SAVE/LOAD AUS 



<221> 

<I52> 

<123> 

<15B> 

<163> 

<64> 

<S3> 

<14> 
<222> 

<9> 

<74> 

<40> 

<38> 
<SO> 
<198> 
<19> 

<151> 



o 



o 



.£>: 



Ö 



90 SYS 82B: PRINT" { DQMN l CHECK Ü SPACE 2 l.OiS 
PACE HSTt SPACE yftKTIVi SPACE } ! " 

100 DATA 169,71,141,2,3,169,3,141,3,3,96 

101 DATA 123,32,115,0, 170,240,243, 162 7 25 
5, 134,58, 144,8, 134,255,32,121 

102 DATA 197,76,225,199,162,1,134,255,76 
,156, 196,166,255,224, 1 ,240,3 

1Ö3 DATA 76,96,197,169,0,141,243,3,141,2 
49,3,141,250,3,160,2,24 

104 DATA 177,95,200,113,95,141,250,3,160 
,3,200, 177,95,240,44,201 ,34 

105 DATA 208,10,173,248,3,73,1,141,248,3 
,177,95,174, 24B , 3 , 208 , 4 

106 DATA 201,32,240,228,238,249,3,174,24 
9 , 3 , 24 , 1 77 , 95 , 1Ü9 , 250 ,3,141 

107 DATA 250,3,202,208,244,76,138,3,56,3 
2,240,255,142,246,3, 140,247 

103 DATA 3,162,0,160,0,24,32,240,255,169 
,91,32,9,225,169,0,174 

109 DATA 250,3,32,205,221,169,93,32,9,22 
5 , 32 T 63 , 203 , 32 , 63 , 203 , 1 72 

110 DATA 247,3,174,246,3,24,32,240,255,1 
62,0,134,255,76, 111,3,0 

111 DATA 0,0,0,0,32,0 



■r 



<99> 
<85> 

< 1 OO > 

< 1 6 1 > 

<211> 

<143> 

<94> 

<31> 

<203> 

<232> 

<21> 

<121 > 
<11B> 



Der VC-20-Checksummer kommt frei Haus unter folgenden Bestellnummern: YV10K (Kassette) oder W10D (Diskette) 



DOWN 


CURSOR UNTEN 


UP 


CURSOR HOCH 


CLR 


CLEAR SCHIRM 


INST 


EINFUEGEN 


HOME 


CURSOR IN ECKE 


DEL 


DELETE 


RIGHT 


CURSOR RECHTS 


LEFT 


CURSOR LINKS 


SPACE 


LEERZEICHEN 


Fl 


FUNKTIONSTASTE 


F3 


FUNKTIONSTASTE 


F5 


FUNKTIONSTASTE 


F7 


FUNKTIONSTASTE 


F2 


FUNKTIONSTASTE 


F4 


FUNKTIONSTASTE 


F6 


FUNKTIONSTASTE 


F8 


FUNKTIONSTASTE 


BLACK 


SCHWARZ 


WHITE 


WEISS 


RED 


ROT 


CYAN 


TUERKIS 


PURPLE 


PURPUR 


GREEN 


GRUEN 


BLUE 


BLAU 


YELLOW 


GELB 


RVSON 


INVERSE EIN 


RVSOFF 


INVERSE AUS 


ORANGE 


ORANGE 


BROWN 


BRAUN 


LIG.RED 


HELLROT 


DGREY 


DUNKELGRAU 


MGREY 


MITTELGRAU 


LIG.GREEN HELLGRUEN 


LIG.BLLIE 


HELLBLAU 


HGREY 


HELLGRAU 


CTRL 


CONTROL 



TASTE NEBEN RECHTEM SHIFT 

SHIFT-TASTE & TASTE NEBEN RECHTEMSHIFT 

SHIFT-TASTE & 2. TASTE GANZ RECHTS OBEN 

SHIFT-TASTE & TASTE GANZ RECHTS OBEN 

2. TASTE VON GANZ RECHTS OBEN 

TASTE GANZ RECHTS OBEN 

TASTE GANZ RECHTS UNTEN 

SHIFT-TASTE & TASTE UNTEN RECHTS H 

LEERTASTE (GROESSTE TASTE) 

FUNKTIONSTASTE Fl jg, 

FUNKTIONSTASTE F3 

FUNKTIONSTASTE F5 

FUNKTIONSTASTE F7 O - 

FUNKTIONSTASTE F2 

FUNKTIONSTASTE F4 O ft 

FUNKTIONSTASTE F6 3 E* 

FUNKTIONSTASTE F8 J~ & 

CONTROL-TASTE & 1 

CONTROL-TASTE & 2 

CONTROL-TASTE & 3 

CONTROL-TASTE & 4 Q CTQ 

CONTROL-TASTE & 5 '2 

CONTROL-TASTE & 6 ^ ~ 

CONTROL-TASTE & 7 f-N M* 

CONTROL-TASTE & 8 

CONTROL-TASTE & 9 

CONTROL-TASTE & g C/) 

COMMODORE-TASTE & 1 O Sf 

COMMODORE-TASTE & 2 

COMMODORE-TASTE & 3 

COMMODORE-TASTE & 4 g 

COMMODORE-TASTE & 5 

COMMODORE-TASTE & 6 ^ 

COMMODORE-TASTE & 7 

COMMODORE-TASTE & 8 G« 

CONTROL-TASTE ZUSAMMEN MIT DEM 

NACHFOLGENDEN ZEICHEN. 

(Z.B. CTRLA ENTSPRICHT CTRL & A) 
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Fortsetzung S. 64 



Computronic 




COMMODORE- 




Interceptor-Base 



Unser Software-Champion '85 Ronald Mayer hat mit diesem Super- 
Game seinem Titel wieder zur Ehre gereicht Interceptor-Base beein- 
druckt durch seine hervorragende Grafik und seine hohe Spielge- 
schwindigkeit. 

Eigentlich befinden Sie sich mit Ihrem Düsenjäger auf einem ganz all- 
täglichen Routineflug. Doch kaum gestartet, geraten Sie innerhalb 
kürzester Zeit in die größte Bedrängnis. Ihr Jet wird von feindlichen 
Abfangjägern angegriffen, die gegnerische Flugabwehr versucht Sie 
vom Himmel zu holen und zu allem Überfluß müssen Sie Ihren Treib- 
stoffvorrat immer wieder durch Zerstören fremder Öllager auffüllen. 
Je länger Sie sich am umkämpften Himmel halten, desto gefährlicher 
wird es für Sie. Dafür sorgen die feindlichen Ufos und Helicopter, die 
nach Erreichen einer bestimmten Punktzahl plötzlich am Firmament 
auftauchen. Doch nicht aufgeben, irgendwann hat man sich bestimmt 
wieder die Luftherrschaft zurückerobert. (S. G.) 



Absolutes Top-Spiel für 




alle C-64-Fans! 



Spielbeschreibung: 

Ziel des Spiels: Soviele Punkte wie mög- 
lich zu sammeln und dar- 
auf zu achten, daß der 
Treibstoff nicht ausgeht. 

Levels: Der Grundlevel wird vom 

Spieler eingestellt (Anfän- 
ger, Standard, Experte). 
Nachdem man eine gewis- 
se Strecke zurückgelegt 
hat, erhöht sich der Sprit- 
verbrauch und die Art der 
Gegner. 



Die Gegner: 
JET1: 



JET2: 



Destroyer: 



Helicopter: 



Bonusufo: 



Kanonen: 



Treibstoff: 



Bewaffnung: 



Bonus: 



Zählt 100 Punkte, Feuert 
mit Raketen. Fliegt eine 
gerade Linie. Langsam. 
Zählt 200 Punkte. Feuert 
mit Raketen. Starten, 
fliegt in die Höhe Ihres 
Abfangjägers. Langsam. 
Zählt 300 Punkte. Feuert 
mit Raketen. Fliegt eine 
gerade Linie. Schnell. 
Zählt 500 Punkte. Feuert 
mit Raketen. Versucht im- 
mer auf Ihrer Höhe zu 
bleiben. Sehr angriffslu- 
stigü! 

Zählt 1000 Punkte Bonus 
und feuert ebenfalls mit 
Raketen. Es erscheint sehr 
selten und macht sich da- 
her durch einen Signalton 
bemerkbar. 

Sind am Boden stationiert 
und feuern mit Raketen. 

Durch Zerstören der mit 
„OIL" beschrifteten Ge- 
bäude wird der Treibstoff- 
vorrat erhöht. 

Unbegrenzter Vorrat an 
Luft-Raketen und Bom- 
ben. Alle sich in der Luft 
befindlichen Objekte kön- 
nen nur mit Raketen zer 
stört werden, alle sich am 
Boden befindlichen nur 
mit Bomben. 
Hat man über 10000 bzw. 
über 40000 Punkte er- 
reicht bekommt man eir 
zusätzliches Flugzeug. 

Computronic 



Armaturen: SCORE: Anzahl der 

Punkte 
FUEL: Tankanzeige 
PILOT: Anzahl Ihrer 
Flugzeuge 
Spielende: Das Spiel ist beendet, 

wenn Ihre gesamten Flug- 
zeuge zerstört sind. 

Abtippen, Laden und Starten des Pro- 
gramms 

Das Abtippen der Programme: 

1. Screenmaker, Grafikmaker, Mcodema- 
ker und Interceptor abtippen und ab- 
speichern. 

2. Screenmaker laden und starten. Es wer- 



den nun die Bildschirmcodes für das 
Spielscreen ab Adresse 4096 erzeugt. 
Nach diesem Vorgang erscheint die Mel- 
dung „Please load Grafikmaker". 

3. Grafikmaker laden und starben. Dieses 
Programm erzeugt die Sprites und den 
neuen Zeichensatz. Weiter wird ein klei- 
nes Startprogramm am Basic-Start er- 
zeugt. 

4. Mcodemaker laden und starten. Nun 
wird der Maschinencode erzeugt. 

5. Interceptor laden. Dies ist das Haupt- 
programm. Das Programm noch nicht ! ! ! 
starten !!! 

6. Nach einer fehlerlosen Ausführung der 
Punkte 1 - 5 befindet sich jetzt das kom- 



plette Programm im Speicher. Nun ge- 
ben Sie bitte "Poke 44,8" + <Return> 
ein. Mit Save "Interceptor-Base",8(,l) 
können Sie nun das gesamte Programm 
auf Diskette (Kassette) abspeichern. 

Diese Vorgänge (1 - 6) sind natürlich nur 
beim ersten Erstellen des Programms not- 
wendig. 

Das Laden und Starten des Programms: 

1. Das Programm Interceptor-Basc laden 
und wie üblch mit "Run" starten. 

2. Joystick mit Port 2 verbinden und los 
geht's!!! 



An diesem Spiel werden selbst die „abgebrühtesten" Computer-Freaks ihre Freude haben! 



C&4 LISTING MIT CHCPKSUMHEN (C Vi.O) 

iOO REM******************************** <21i> 

101 REM* iNTERqEPTORBASE-SCREENMAKER * <174> 

102 REH* TCJ19Ö5 BY MR-SOFT * <8> 

j 03 REM* R N A L D M A VE R * <12S> 

104 REM* A-4062 THENINS 24/AUSTRIA * <168> 

iöS REM******************************** <2i&> 

1Q6 ÜAT&>'Z SPAC£y =>-?~>*£ £PAC£9 y * <116> 

1Q7 DATA" C SgACE^ i— ~-\ i$PACE?J " <217> 

108 DATA" Z §fJi:CE.ß '}=e>*?~>*£ sPA{;E l " <4S> 

109 ßflTA'* Z SPACES lf i- ~i l $PAC£l " <t79> 

110 &AT^t S/>^!E£i<ä >" <187> 
1 1 j DATA "« >*l $pAC£2y ~— r >±{ SPA£E6 > " <78> 

: 112 DATA" i--f * &£ *£££? l-^^~C $PACE2 }->*{:SPA ■■ 

. ££>" ■ . <179> 

1 13 DATA" t SPMß-12 >i -^S SfiÄCfy <ll3> 

114 DATA " < SP£CE9 > -> *i SPJ^ £4i " ^lil> 
115 . :pATA i 'Ä>-*fSigv!£££} '!_{ £SPAC££5' 1 ^ <22Ö> 

1 1 6 DATA " I — -Z SPAä£2 5 **>?-> ±< $PAG£2? = >*" < 49 > 

117 DATA" <, £PACE $2 t,-—"--^ i SPACE2 3-^~" <253> 

118 DATA3, 1,^2,1,3,1 ,1,3,2, 1,3,1, 3, 2,2 <235> 

1 19 PCKES^, 409&/25&S DLR: FDR1-1 Ta3t PQRJ==Ö 
■TO3s--REA0tt*'«: v J) sN£XT*J,I <S7> 

120 FORI =0TO 15s READW <3S> 
.121 :fOR4-OT03." ■■■■.■■.. ' <2Ö2> 

122 : F0RK=siTQ16iRpKE4096+256*a+]E*lfr+K-l ,A 

SCmiD*<W*(W* J) ,Kvl> >AWNOT128;NEXTK,tr, I <51> 

123 BATA ri i SpACES j LL.JB P ACE5 3l_C $P ACE35 " <TZ> 

124 DATA" <:§£!AtgZ>^^ J \<SPAC£ß\^^\<§Pj^ 
-££>'* ■■■"-... ■ <96> 

■■■3.2s '^T^x s:P.AC£> Mirnttrrr-usp^E^^isfiA- 

■££>."■ . ■ ... <172>-. 

126 DATA'' {££4C£> K .^ SfiACe-21 ~ t SgACEl I-, '-££ 
/MCEVr ; <t SP.&CO " <1> 

127 DATA ft { g>?4£f iO " <204> 

128 BATA" *S£4££> */V/'//'/VV/V — /«sfiäCgl** .< 1 20>: 

129 DATA" $ $PA££ 5 »'<-» t: t-K-HtTTTT*'.- ■■■ <114> 

130 DATA'^gf^O>-i SPjaCg6> -<S P4f:ar >^C SJ JtC 
.:€&*"■'■; ■ -<137>- 

131 Qm& ,i z mACE4 y\^&%A££i n" ■■■■--.. <$ä&>- 

132 DATA" C S£,flCg } j ; ; ->'vC S&3eg ? -. / *./. /./JSPA 

fiE>5" :: ' ■ ' : . <-.isi > 

;>i^/:ÜATA>rftTl^ ■■::. ■:- r ..-.-:""" :: --' : -, ^17Ö> 

134 DATA" <S£4£gS>*Cg5ä^£>-*tP^^E>- > Ei£i 
^^-^»,/^CSfl^pgy ' "■■■"- <24Ö> 

135 DATA h < g^4gg2? L< gi a igCg2 > J ^ S^4gE2> Lt fffi4 : 

. ££7 ^' r ■ .. :<236> 

■ 136.. PATA"iC gP-»g.g > K-t K V|-, H'Sg4C£> .»ZX/V^: <*> ' . 
137 DAT.A"m [Hill ■■"( 1 J -J IH " <174> 
1 30 DATA" mPACE i i $ < £ SPm£2 1 - C igP4gC2 > ? < s < 

-i:<:^ gfijgeg ?;"' ;■■■■■:':". .-■':■: <19> - 

1 39 DATA " t$fi m ACEt^> * <2t6> 

..i4i .DATA**rprTn#^-5?<#n«FT H <i36> 

■ I-42" DATA" <$£ME2> * tSPACEi K V£ Sg4gg, }^ S5g 



143 DATA" < g£jggJ >L< ggjg££Ag.5 '-' ■•■.■■ <228> 

144 DATA"^>vy„. /*7.y./p/-:* f <24ß> 

145 DATA" rTTTTTTTTTTTl V l'.'i" ' <200> 
14fe.-0ßTA-" : i.s*<-,./- # ./i/-.7,/-CS£4g|>-" <43> 

147 DATA'^ i- g£ggÜA.> " <224> 

148 DATA 1 * \,: ^Z SPACE-S lrLS &PA&Mg} */:/ '//.//* ■ .: <l't7>. 

149 DATA" r SP4Cg^ 3 h. ^^fTTTTTF»' <232> 

150 DATA" . / C SPACE >~< $;.PA£'£ y > ^ t SPAC£ }-<. £PA 
CC5iiii<<: $PAC£ y" <%o> . 

151 DÄTA1,2, 3,4, 5^6,1,7,6,2,4,5,6,1,7*6 <208> 

152 F0Rl==lT07;FORJ*OTO3sfEEADW«i(l ,J> :NEXT 

ayl ■' <125> 

153 FORI sOTOiSs READ« <6B> 

154 FORJ^OT03 '' <235>' 

155 FORK=iT016sPÖi<ES12O+25&**J+mi6+K-l,A 
SC(HiD*(W*<W,J) ,K, 1) JANDt^lf j28iNEXTK, J ,1 <199> 

■ "ISA POt^53281 \ Oi PRIMT" < CL£AR y YELL$0 P[M&: 

SE i SPACE > LDAP { g/»JtC£ >i3RAF IKMAKER " <252> 

157 POKe56,16ÖiPOKE44,4OjROKEiO24Ö,0iNE« <1B3> 
,":ENDE ÖES LISTINGS 

100 REM*****#**********»*#**#*******#** <211> 

101 REM* IMTERCERTORBASE-SRAFIKMAkER '*' <1B7> 

102 REM* te>19B5 BV MR-BÖFT * <S> 

103 REM* RONALD MAYER * <128> 

104 REM* A-4062 THENINB 24/AUSTRIA ■■■■■* <16B> 

105 REM******************************** <216> 

106 ROKE532B1 ^Os FQKE532Ö0, OsRRINT" $£L£JW 
gÄ£g# >eREATINStSP4Cf :JgFRITES*gO»jWT " <234> 

107 X=64*33sS=0 ■■ <75> ' 
IÖS READA*:IFA*^ n E''THEW112 <217^ 

109 A=OflL <A*) ,.-s IFRISHT* < A* , 1 J =■*' X 1 ' THENt 11 < 13S> 

1 10 POKEX ■» As X^=X+1 - SfeS+As SaTölOS < !OÖ> 
tll Fffl?I=0TOft-lsROKEX+I,OsNEXT:X=X+A:BDT 

oiöb ".<aa?-;' 

112 IFS=42£72TH£N114 <42> 

113 RRINT"SFRITE-DATAl SP4^ >ERRqR";EhfD <2Sl> 

114 PRINT"SRRITE-DATAS{S£^£3ÖK. ! C OO^W> " 
■S.60TO139-. <9l> 

115 REM******************************** <226> 

116 REM* SPRITE-DATAS * <153> 

117 REM******************************** <228> 

118 PATA6X s 62vl2S T ,63* 170» ^63^ 166 ^176^25 
0,l&5va6S*254, 150,160,254,170,192* 170 <20B> 

119 DATA168, *170,49X t lo,I68t^X 1 ,42,160,55 
X,3;,i.76, , 1,248, ^3, 176, 47X^10^160,^21, SS <229> 

120 0ATA,42,17q^ 160,85,85^84, 170,17Ö T 16Ö 
*85*Ö5»64, 170,168, r 85,36X,12,48j4S t 55 <139> 

121 BATA22O,22Ö,5Sv05,87 > 2l3, 169,87,134,1 
7<J,92,213, 169,92,213, 105,87^53,85,87, 15 < 12> 

122 DATA215,220, ^60,35X,10Vl!^; i , 47,250, 1 

28, 191 ,95,224, 189 * 93 ,246, 47 , 85, 254 * J91 <2l7> 
:123 ■DATA8&*120,:191,.253 : ,24.8,42; i 255,224,..,.l ■ ■ : 

90, 128,, 40i36X T 80, 80,5,165*164,26,170 <124> 

124 DATA169,10Ä y ie7,169,26i2EK, 169,26,^; 
.■5,220.^106, 190,164,102, 165, 164,17, 144,80 C66> 

125 BATA, 64, 35X, 116*105,238, 132,105,9,10 
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0,185,206,20» 161 ,9,227,33, 233, 3X, 227,37 <36> 

126 0ATA39, 148, 181, 40, 228, 173, 38, 148, 165 

,33, 227,36,206,3*, 9, 140, 96, 26, 82,144,10 <203> 

127 DATA82, 144, 10,82, 144,29,140, 96, 14X,1 
40,96,1,146, 144,, 146, 144,, 146, 144,1,204 <134> 

128 DATA96,49X,1,140,96,2,82,144,,146,14 
4,I,18,144,3,2O4,96,49X,l,140,96,2,82 <217> 

129 DATA144,,146,144,2,82,144,l,i40,96,4 

9X, 3,204,96,2, 18, 144, 1,146, 144,, 82, 144 <93> 

130 DATA3,140, 96, 49X, 3,204, 96,2, 18, 144,1 
,146,144,,82,144,3,140,96,50X,10,160, <32> 

131 DATA170,170,,90 f 16S,,24S,95,t2,15,24 
0,23,1 , ,234, 163,40,62, 168,104,3,252,40 <234> 

132 0ATA39X, 42,,, 174, 1,106,174, 5,255, 234 

,63, 170,188, , 10,160,,, 168, 43X, 192, ,,53, <7l> 

133 DATA, 13, 160,, 3, 232, 160, 2, 186, 168,, 17 
4,184,,171,160,,40 t 128,,40,,,8,37X,38,, <1S8> 

134 DATA170,, 106, 166, 1,122,230, 5, 235, 170 

, 255, 174, 128, 2, 170, 160,, 2, 168, 41X, 255 <204> 

135 DATA220, , 16,,, 32, 2,6, 168, 6, 22,190,16 

9, 26,250,128,42, 168,, lO, 224,, 48,48,, 15 <166> 

136 DATA255,35X,223,252,,,16,,,32,2,6,16 

8,1 ,22, 190, 166,26,250, 128,42, 168, , 10 <53> 

137 DATA224,,48,48,,15,255,4SX,63,192,3, 
252,47X,192,,,48,,,15,,,3,192,,,240,, <Ü8> 

138 DATA12,47X,E <56> 

139 REM*«*****«*****«****«****»*-*****-»«- <250> 

140 REM* CHAR-DATAS * <70> 

141 REM******************************** <252> 

142 PR I NT " WOU W>CREATI NB i SPACE } CHARACTER 
Si DOHNy " <243> 

143 X=S192sS=G <80> 

144 READA*iIFA*="E"THEN14S <129> 

145 A=VAL<A*)iIFRIGHT*CA*,l)-"X"THEN147 <128> 

146 P0KEX,AiPQKEX+1G24,255-AjX=X+1sS*=S+A 
SS0T0144 <199> 

147 FDRT=0T0A-i:P0KEX+.I,OsPaKEX+I+1024,2 
55*NEXT«X=X+A I GOTD144 <18> 

148 IFS«82881THEMt50 <101> 

149 PRINT"CHARACTERH0ATA{S£4C£,>£RROR'' S EN 

D <174> 

150 PRJNT"CHARACTER-DATAStg£4C£>0K. ! C DOU 
W>"sßOT0184 <6B> 
Toi DATA255, 255, 235, 255,255, 4X, 12,30,102 
,126, 204,204,,, 62, 51, 124, 102, 204, 248,, <67> 

152 DATA3Q, 51, 96, 96, 204,120,,, 60, 54, 102, 

102, 216,240,,, 63, 48, 120, 96, 192,252,,, 63 <235> 

153 DATA4S, 120,96,192, 192,0,0,30, 51, 96,1 
10,204,120,,, 31,51, 126, 102,204,204,, ,30 <12> 

154 DATA12, 24, 24, 48, 120, 0,0,15,6,12, 12, 2 

16, 112,,, 51, 54, 120, 120, 216, 204,,, 48, 48 <227> 

155 DATA96, 96, 192, 252,,, 49, 59, 127,107, 19 
8,198, ,,51, 59, 126, 126, 220,204,,, 30, 51 <234> 

156 DATA102, 102,204, 120,, ,62,51,102,124, 

192, 192, ,,30,51,102, 102,120, 12,, ,62,51 <210> 

157 DATA102, 124, 216, 204,,, 30,51,120, 14,2 

04, 120,,, 63, 12, 24, 24, 48, 48,,, 51,51,102 <116> 

158 DATA102, 204,120,,, 51, 51, 102, 102,120, 

48,,, 49, 49, 107,127, 238, 198,,, 51, 51, 60 <123> 

159 DATA60, 204, 204,,, 51, 51, 60,24,48, 48,, 

, 63, 6, 24, 48, 192, 252,,, 255, 4X, 255, ,,255 <203> 

160 DATA192,192,192,192,255,,,255,240,24 
0,240,240, 255,,, 255, 252, 252, 252, 252, 255 <182> 

161 DATA,, 255, 255, 255, 255, 255, 255, 9X, 24, 
24,60,60,60,255,255,255,25,43,89,100,41 <150> 

162 DATA156,10O, 72, ,1,3, 7, 15, 63,255,255; 
,,193, 227, 255,255, 255, 255,,, 192, 224, 248 <131> 

163 DAT A2S2, 255, 255, 4X, 48, 126,255,255,3, 
3,15,15,63,63,252,255,255,255,192,192,3 <7ö> 

164 DATA3,15,255,24O,240,24Ö,24O,192,192 
,,,3,3,15,15,63,63,255,255,255,240,192 <222> 

165 DATA1 92,3, 15, 255, 240, 252, 60, 240,240, 

192, 192,,, 128, 160,40,46, 169, 253, 237, 252 <220> 

166 DATA, 3, 15,63, 255, 255, 3X , 64, 212, 245, 2 

53, 255, 3X, 30,51,102, 102,204, 120, ,,12,28 <160> 

167 DATA24,24,48,120,,,30,51,14,56,192,2 

52, ,,30, 51, 28, 6, 204,120,,, 7, 15, 54, 126 <125> 



16B DATA12,12, , ,63,48,124,6,204,120, , ,30 

,48, 124, 102,204, 120,,, 63, 3, 12, 24, 48,48, <70> 

169 DATA, 30, 51, 60, 102, 204, 120,,, 30, 51, 10 
2,62, 12, 120, ,61 ,61 ,245,245, 170, 190, 190 <Ö> 

170 DATA170, 125, 125,245,245,170, 190,190, 
170,112,112,224,224,160,160,128,128, , <90> 

171 DATA15, 63,63, 255, 255, 255, ,240,255,25 

5, 255, 255, 255, 255,,, 3, 251, 254, 255, 255 <121> 

1 72 DATA255 , , 1 5 , 255 , 255 , 255 , 255 , 255 , 255 , 

3X, 192, 252, 255, 255, 255, 255, 191, 47, 42, 10 <125> 

173 DATA2, ,,255,254, 250,171 ,175,10,2, ,25 
5,255,255,255,255,255,190,170,255,255 <223> 

174 DATA255,254,252,24S,160,12B,255,239, 

191, 255, 190,42,,, 255, 252, 24B, 160, 128 <56> 

175 DATA12S,2X,21,Q5,255,234,238,238,234 
,255,85, 85, 255, 23B,23B,23B,23B, 255, 85 <104> 

176 DATA85,253,253,253,253,1S9,253,69,17 
,17,69,1,1,1,1,16,48,16,116,84,69,68,69 <187> 

177 DATA64,64,64,64,64,4X,255,B5,125,S5, 

85, 255,, 255, 85, B5, 125, 85, 85, 85, 255, 255 <144> 

179 DATA97, 92, 92, 112, 112, 192, 192, 3, 3, 13, 

13, 53, 53, 213, 255,, 252, 92, 112, 112, 192 <3> 

179 DATA192, , ,3,3,13,13,53,63,0,7,29,21 , 

119,117,85,117,29,240,93,215,125,85,85 ' <129> 

1B0 DATA247, 13, 244, 93, 85,87,117,92, 116, 2 

OB, ,255,255,255,255, , ,255, 255, 255, 3X <193> 

1 B 1 D ATA255 , 255 , , , 255 , 255 , 3X , 255 , 255 , 255 

,,,255, 255, 255, 255,, 255, 255, 192, 192, 3X <203> 

1B2 DATA24Ü,3,3, 15, 15,63,63,252,252,255, 

240 , 1 92, 192, 3, 3, 15, 15, 63, 3X, 3, 3, 255, 255 <141> 

183 DATA4X,12,60,63,63,E <255> 

184 REM******************************** <39> 
1B5 REM* INIT-DATAS * <209> 

186 REM******************************** <41> 

187 PR I MT " -t PfltfW iCRE AT IMG I SP ACE J HEADER -C DO 

MO" <97> 

189 X=2Ö4B:S=0 * <114> 

189 READA*:IFA*="E"THEN19I <139> 

190 A=VAL£A*) :PQKE)(,A; X=X+1 : S=S+A: GGTOIB 

9 <177> 

191 IFS=1374THEN193 <219> 

192 PR INT" HEADER-DATA { SPACE } ERROR" ~. END <137> 

193 PR INT "HEADER-DATAS { SPACE ! OK . ! t DOHN l " 

sEND <189> 

194 DATA, 23, 8, 193, 7, 151, 52, 52, 44, 52,46, 5 
8,151,49,48,50,52,4S,44,4B,5B,138,,, ,E <254> 

ENDE DES LISTINGS 



1 00 REM******************************** 

101 REM* INTERCEPTDR MCODEMAKER * 

102 REM* (C)19B5 BY MR-SDFT * 

103 REM* RONALD MAYER * 

104 REM* A-4062 THENING 24/AUSTRIA * 

105 REM******************************** 

106 IFPEEK(44) < >40THENPR INT" VORHER {S/MCE 
> • PQKE44 , 40 ' ^ SpACE } E I NBEBEN ! " : END 

107 FORI=6150T081795READA:S=S+AsPOKEI,A: 
NEXT 

108 IFS=240613THENPRINT"DATASC£P4C£>aK. ! 
" : END 

109 PRINT"DATA< SfMCE >ERROR! " : END 

110 DATA162, 8, 160,0,169, 41, 133, 254, 169, 2 
4, 133,255, 169,0, 133,252, 169, 192 

111 DATA133,253, 177,254, 145,252,200,208, 
249 , 230 , 255 , 230 , 253 , 202 , 208 , 242 , 96 

112 DATA1 20, 169, 51, 162, 192, 141, 20, 3, 142, 
21, 3, 169, 1,1 41, 13, 220,141, 26, 20B 

113 DATA133,2,8B,96, 120, 169,234, 162,49,1 
41,21,3,142,20,3,169,129,141,13,220 

114 DATA169, 0,32, 16,192,141,32,208,141,3 
3, 208, 96, 173, 25, 208,141, 25, 20B, 173 

115 DATA17,20S, 41, 12>, 141, 17,208,166,2,1 
89,132,3,141,18,208,189,137,3,141 

116 DATA22, 208,189, 142, 3, 141, 33,208,189, 
147,3,141,27,208,224,4,208,4,169 

117 DATA255, 133,2,230,2, 138,240,3,76, 129 



<211> 

<153> 

<B> 

<128> 

<168> 

<216> 

<174> 

<43> 

<49> 
<142> 




io 



Computroni 
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,234,173,60,3,240,3,32,20,193,76 < 143> 

118 DATA49,234 T 162,0,1B9,25,5,157,24,5,2 
32,224,159,144,245,162,16,134,255 <115> 

119 DATA169, 0,133, 254, 24, 172, 61, 3, 170, 17 
7,254, 157,63,5, 138,105, 40,230,255 <236> 

120 DATA201, 160,144, 241 ,238, 61, 3, 96, 173, 

138, 3, 201,208, 208,13,165, 2, 20B, 252 <23B> 

121 DATA169,215,141,13B,3,32,118,192,96, 

206, 130,3,96,173,140, 3, 201, 208,208 <213> 

122 DATA13, 165, 2, 208,252, 169, 215, 141, 140 
,3,32,210,192,96,206, 140,3,96,173 <232> 

123 DATA168,6,72, 160,0,185,169,6, 153, 168 
,6,200,192,39,203,245,104,141,207 <114> 

124 DATA6 , 96 , 160, 0, 185, 209,6 , 153 , 20B, 6 ,2 
00,192,159,144,245,162,20,134,255 <S3> 

125 DATA169,0, 133,254,24, 172,62,3,170,17 
7,254,157,247,6, i3B, 105,40,230,255 <157> 

126 DATA201 ,160,144,241,233,62,3,96,173, 

141, 3, 201,208,208, 13, 165,2,240,252 <50> 

127 DATA169,215,141,141,3,32,232,192,96, 
206,141,3,96,173,60,3,240,23,41,1 <46> 

128 DATA240 ,3 , 32 , 1 86 , 192 ,32, 162, 192 ,238 , 
60,3,173,60, 3, 203,5,169,2, 141, 60 <243> 

129 DATA3.96, 173, 73, 3, 20B,2B, 173,0,220,4 

1,1, 208, 14 , 56 , 173 , 3, 20B , 237, 1 ,208 <226> 

130 DATA201 , 108,176,3,206, 1 ,20S, 173, O, 22 
0,41,2,203,3,238,1,208,173,0,220 <170> 

131 DATA41 ,4,208,16,173,3,203,201,204,14 

4, 9, 206,3,203, 206, 1,208,233,0, 208 <B8> 

132 DATA173,0,220,41 ,8,208,16,173,3,208, 
201,219,176,9,238,3,208,238,1,208 < 183> 

133 DATA206, 0,208,173, 0,220,41,16,208, 28 
,173,64,3,208,23,238,64,3,173,1,208 <231> 

134 DATA141, 5, 208,173, 0,203,141, 4, 208, 17 
3,21,208,9,4,141,21,208,173,0,220 <98> 

135 DATA41,1B,20S,51,173,65,3,208,46,238 

, 65, 3, 173, 1,20B, 141, 7, 208,173, 3, 208 <3> 

136 DATA141, 70, 3, 173, 0,208,141, 6, 20B, 173 
,21,208,9,8,141,21,208,162,32,142 <97> 

137 DATA11, 212, 232, 142, 11, 212, 169, 255, 23 
7,1,208,141,8,212,173,0,208,141,2 <22> 

1 38 DATA208 , 96 , 1 73 , 64 , 3 , 240 , 53 , 238 , 4 , 20B 
,173,4,208,201,250,176,30,173,79 <171> 

139 DATA3,240,3B,173,7B,3,41,68,201,68,2 
03,29,173,12,208,56,237,4,208,201 <141> 

140 DATAIO, 176, 18, 169, 1,141, 66, 3, 173, 21, 
208,41,251,141,21,208,169,0,141,64 < 178> 

141 DATA3, 173, 65, 3, 240,8,173, 67, 3, 240, 4, 
206,67,3,96,169,5,141,67,3,169,255 <247> 

142 DATA237, 7, 208,141, 3, 212, 173, 7, 208,20 
5,70,3,144,116,162,0,201,207,144 <177> 

143 DATA8, 162, 40, 201,215, 144, 2, 162, SO, 17 
3,6,208,56,233,90,74,74,74, 133,255 <95> 

144 DATA13B, 24, 101, 255, 133, 254, 169, 7, 133 
,255,160,247,140,10,212,160,0,140 <66> 

145 DATA11,212,162,12B,142,4,212,232,142 
,4,212,202,142,4,212,177,254,201 <243> 

146 DATA45, 144, 26, 201,75,176, 22,201,72,1 
44,9,24,169,5,109,68,3,141,68,3,24 <184> 

147 DATA169, 3, 109,69,3,141, 69, 3, 185,215, 
194,145,254,200,192,3,208,214,169 <19> 

148 DATAO, 141, 65, 3, 173, 21, 208,41,247, 141 
,21,208,76,214,194,238,6,208,238 <220> 

149 DATA7, 208, 96, 84, 85, B6, 173,73,3,208,3 

4, 162, 30, 1B9, 159,7,201 ,28, 176,22 <20> 

15Ö DAT A202, 208,246, 24, 162, 14, 160,14,32, 
240,255,169,42,160,195,32,30,171 <79> 

151 DATA238,73,3,96,222, 159,7,96, 173,68, 
3,240,250,173,73,3,240,8,206,73,3 <72> 

152 DATA162, 14, 32, 255, 233, 206, 68,3,162,0 
,189,160,7,201,31,144,6,232,224,30 <91> 

153 DATA208,244,96,254, 160,7,96,144,79,8 
5,B4, 32, 79, 70,32,70, 85, 69,76,0,173 <53> 

154 DATA78, 3, 41 ,65, 201,65,208, 12, 173, 0,2 
08,105,20,237,12,208,201,40,144,53 <115> 

155 DATA173, 3, 208, 72, 56, 237, 1,208,201,6, 
144,2,104,96,104,205,1,208,240.33 <27> 



156 BATA173, 3, 208,162, 0,201, 207,144,0, 16 
2,39,201,215,144,2,162,78,189,4,7 <76> 

157 DATA201, 45, 144, 14, 201, 77, 176,10,169, 
34,157,4,7,169,1,141,71,3,96,173 <37> 

158 DATA69, 3, 240, 28, 206,69,3,162, 4, 189,1 
22,4,201,57,240,6,254,122,4,76,135 <1Ö5> 

159 ÖATA195»169,4B, 157, 122,4,202,208,235 
,240,223,96,173,77,3,208,76,173,1 <246> 

160 DATA208, 201,160, 176, 1,96, 162,0,160, 2 
03,173,3,208,201,207,144,12,162,40 <126> 

161 DATA16Ö, 2.11, 201,215, 144, 4, 162,80,160 
,219,189,10,7,201,45,208,225,140 <144> 

162 DATA9, 208, 169, 166, 141, 8, 208, 173, 21, 2 
08,9,16,141,21,208,169,244,141,6 < 178> 

163 DATA212, 160,32,140, 4,212, 200,140, 4, 2 
12,136,140,4,212,238,77,3,96,173 <96> 

164 DATA78, 3, 4t, 17, 201, 17, 208,25,173, 8, 2 
08,237,0,208,201,20,176,15,238,71 <85> 

165 DATA3, 206,77*3, 173, 21, 208,41,239, 141 
,21,208,96,206,9,208,174,8,208,224 <14> 

166 DATA20, 144,234,202,202, 142,8,208,96, 
173,86,3,208,30,238,86,3,169,37,141 <34> 

167 ÜATA248, 7, 141,249, 7, 169, 255, 141, 6, 21 
2,169,10,141,1,212,162,128,142,4 <166> 

168 DATA212,232, 142, 4, 212, 173,248,7,201, 
39,144,8,169,36,141,248,7,141,249 <54> 

169 DATA7, 238, 248, 7, 238, 249, 7, 173,1,208, 
205,3,208,240,4,238,1,208,96,238 <54> 

170 DATA83, 3, 96, 173, 81, 3, 208, 1,96, 173, 79 
,3,208,127,173,87,3,240,13,169,0 <135> 

171 DATA141, 87, 3, 32, 27, 198, 169, 46,76,170 
,196,173,81,3,201,2,144,72,201,3 <15> 

172 DATA144 ,45,240, 28, 173, 18, 208,41,1,24 
0,21,32,27,198,169,50,141,254,7,173 <42> 

173 DATA18, 208,41,63, 105,110, 141,13,208, 
76,229,196,173,18,208,41,2,240,8 <115> 

174 DATA169,49,32,56, 198,76, 1?0, 196, 173, 

18, 20B, 41, 1,240, 16, 169, 211, 141, 13 <56> 

175 DATA208, 32, 56, 198,169,48,141,254,7,7 
6,229,196,169,47,76,195,196,173,16 <Ö> 

176 0ATA2OS, 9, 64, 141, 16,208, 169,90,141,1 

2, 208,173, 21, 208, 9, 64, 141, 21, 2ÖB <145> 

177 DATA238,79,3,96,32,4, 197,76, 180, 197, 
173,16,208,41,64,208,19,173,12,208 <219> 

178 DATA201, 5, 176, 12, 206, 79, 3, 173,21,208 
,41,191,141,21,208,96,173,82,3,240 <138> 

179 DATA4, 206,82, 3, 96, 169, 4, 141, 82, 3, 173 
,12,208,208,8,173,16,208,41,191,141 <250> 

180 DATA 16, 208, 206, 12,208, 173,254,7,201, 
50,144,36,240,5,206,254,7,176,3,238 <lll> 

181 DATA254,7,173,B0,3,208, 17, 173, 13,208 

, 205,1, 208, 240,10, 144, 4, 206,13,208 <206> 

182 DATA96,238, 13,208,96,76,234, 197,201, 
49,144,26,206,12,208,173,254,7,201 <141> 

183 DATA46,208,7, 174, 18,208,232, 142,15,2 
12,173,1,208,205,13,208,240,39,96 <88> 

184 DATA201 ,48, 144,229, 173, 12,20B,41 , 1 ,2 
08,3,206,13,208,173,13,208,201,120 <32> 

185 DATA144, 14, 205, 1,208, 176, 20, 173, 16, 2 
08,41,64,201,64,240,11,206,254,7 <39> 

186 DATA173,80,3,208,3,32,234, 197,96, 173 
,80,3,240,48, 173,14,208,201 ,5, 176 <235> 

187 DATA12,173,21,208,41,l27,141,21,2OB, 
206,80,3,96,206,14,208,173,78,3,41 <227> 

188 DATA129, 201, 129, 20S, 17, 173, 14, 208, 56 
,237,0,208,201,20,176,6,238,71,3 <135> 

189 OATA76, 192, 197, 96, 173, 12, 208,201,90, 
144,41,238,80,3,173,12,208,141,14 <44> 

190 DATA20B, 173, 13,208,141,15,208,173,21 
,208,9,128,141,21,208,169,247,141 <4> 

191 DATA6, 212, 162, 128, 141, 4, 212, 232, 142, 
4,212,202,142,4,212,96,72,32,85,198 <121> 

192 DATA162,7,lB9,4B,*98,i57,S3-,212,202, 
208,247,169,65,141,18,212,104,96 <2Ü9> 

193 DATA190,0, 150, 100,64,0,255,72,32,85, 
198,162,7,189,77,198,157,13,212,202 <145> 

194 DATA208, 247, 169, 129, 141, 18, 212, 104, 9 
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6,0,1,0,0,128,0,255,162,7,169,0,157 <7> 

195 DATA13, 212, 202,208,250, 96, 173,66,3,2 
40,62,32,226, 198,206,66,3,206,79 <200> 

196 DATA3, 169,255, 141 ,84,3, 173, 12,208, 14 
1,10,209,173,13,208,141,11,208,173 <138> 

197 DATA254 , 7 , 56 , 233 , 6 , 141 ,S5,3, 170, 189, 

1B0, 198,141, 69 ,3, 169, 37, 14 1,253, 7 <80> 

198 DATA169, 225, 141.2S, 208, 173, 21,208,41 

, 1 91, 9, 32, 141, 21, 20B, 173, 84, 3, 240 <175> 

199 DATA51 ,201,150,144,20,208,0,173,253, 
7,201,39,144,5,169,36,141,253,7,238 <92> 

200 DATA253,7,76,203,19B,173,B5,3,141,25 
3,7,169,193,141,28,208,206,84,3,173 <71 > 

201 DATAB4, 3, 208,8,173, 21, 208, 41 ,223, 141 
,21,208,96,100,10,20,30,50,50,162 <185> 

202 DATA7, 169 ,0,157, 255, 21 1,202, 208,250, 

162, 7, 1B9, 0,199,157, 255, 21 1,202,208 <6i> 

203 DATA247, 162, 129, 142,4,212,202, 142,4, 
212,96,0,10,0,0,128,0,250,173,62 <39> 

204 DATA3, 201,2,176,65,201,1,240,6,169,1 

,141 ,92,3,96, 173,92,3,240,50,206 <250> 

205 DATA92,3,23B,BB,3,173,8B,3,20i,2,144 
,37,162,1, 142,87,3,202, 142,88,3,173 <1B0> 

206 DATAS1, 3, 201,4,144, 5, 169,0, 141, Bl, 3, 
238,81,3,173,91,3,201,10,144,6,56 <8B> 

207 DATA233,2,141,91,3,96,32,B,199,173,B 
9,3,208,9,32,44,193,173,76,3,141 <145> 

208 DATA89, 3, 206,89,3,32, 135, 195, 173,30, 

208 , 1 4 1 , 7B , 3 , 1 73 , 63 , 3 , 240 , 6 , 206 ,63 < 21 B > 

209 DATA3, 76, 160, 199, 169, 4, 14 1,63, 3, 173, 
74,3,240,6,206,74,3,76,146,199,173,91 <186> 

210 DATA3,141,74,3,32,21B,194,173,71,3,2 
40,6,32,44,196,76,160,199,32,73,193,32 <44> 

211 DATA255, 193,32,116,196,32,55,195,32, 
169,195,32,96,198,32,2,195,173,83,3 <192> 

212 DATA240 , 1 , 96 , 1 73 , 75 , 3 , 240 , 6 , 206 , 75 , 3 
,76,1B4,199, 169,150,141,75,3,76,81,199 <25> 

ENDE DES LISTINGS 

100 REM******************************** <211> 

101 REM* INTERCEPTGR HAUPTPRDGRAMM * <105> 

102 REM* (C) 1985 BY MR-SÜFT * <B> 

103 REM* RONALD MAYER * <128> 

104 REM* A-4062 THENING 24/AUSTRIA * <16S> 

105 REM******************************** <216> 

106 REM******************************** <217> 

107 REM* VARIABLES * <9B> 
lOB REM******************************** <219> 
1 09 SYS6 1 SO : V=53248 : S=54272 : J 0=56320 : » I M 
N*(ll) ,H*(11) <116> 
HO PDKEV+ 17 , O: P0KEV+24 , 25: POKEV+32 , Os PG 
KEV+33,B:P0KEV+34,llsPQKEV+35,2 <217> 

111 Li ( 1 > ="EEBINNER" : L* (2) = "STANDARD" : Li 
(3)="EXPERT^SP4CE2>" <188> 

112 DATA96, 148, 186, 196,230 <20> 

113 DATA 192, 208,192,208,208 <202> 

114 DATAO,0,O,O,5 <231> 

115 DATAO, 255,0,0,0 <45> 

116 F0RI=OTai9sREADA:P0KE900+I,A:NErr <22Ö> 

117 S YS49 1 75 : G0GUB2S3 : S YS49 1 75 s POKE V+ 1 7 , 

O <57> 

118 P0KE911,8:PQKE912,10*P0KE913,4 <28> 

1 19 FORI=l TOlOsN* ( I ) ="RDNNYt S/ j yiCEJ2 > " : H* 
<r>="00100" :NEXT <217> 

120 GQT0140 <191> 

121 REM****************************** <62> 

122 REM* POINT TABLE * <53> 

123 REM****************************** <64> 

124 PDKEV+17 ,0: PRINT" I CLEAR l " ; TAB( 13) " {.Y 
ELLOU STABL-1={: SPACE yQFZ SPACE yP0imS" <119> 

125 PRINT" ID0NN3 GREEN RIGHT2 RVSON SPAC 
ES RIGHTS SPACE 1 O l 1 OOO Z SPACE > PO I NTS C SPAC 

E6>" <189> 

126 PRIWiDQHN CYAN RIGHT2 RVSON SPACES 
RIGHTS SPACE 1 1 y 5QO C SPACE yPOINTB J SP ACE 6 > 

<232> 

127 PRINT" UDOtiN GREEN RIGHT2 RVSON SPACE 



5 RIGHTS SPACEli yZOOi SPACE yPOlNTSC SPACEd 

>" <171> 

128 PRINT" C VOUH CYAN RIGHT2 RVSON SPACES 
RIGHTS SPACEIi y200< SPACE }PaiNTS<: SPAC£61 

<147> 

129 PRINT" i üOUH GREEN RIGHT2 RVSON SPACE 
§. RIGHTS SPACE 1 1 1 100Z $PACE >PQ1HTS<S PACE6 

'.>" <115> 

1 30 FOR I =0T04 s POKE V+ 1 + 1 *2 , 87+ 1 * 1 6 1 POKEV+ 
I*2 t 85sPOKEV+39-fI,14:NEXT:PDKEV+21,31 <124> 

131 PRINT" WOHN CYAN RIGHT2 RVSON SPACES 

SJ.9M, FJCSOEE QßOtiHy h -ir vson right cyan 

SP^CCiH 90< S>/qeC >P0INTSC SP>TCE6> " <29> 

132 PRINT" < DO UN GREEN RIGHTS RVSON SPACE 
5 RIGHT RVSOFF BROUN> i i<< RVSON RIGHT GRE 

üt SPAC E 1 2 >9O< SPAC£y P0lHTS<. SPACE6 y n <59> 

133 PRINT" I DOUN CYAN RIGHT2 RVSON SPAC ES 
RIGHT RVSOFF BROHN y . / i SPACE RVSON RIGHT 

CYAN SPACE 1 2> 6Q ISP ACE 1 PO I NTS < SPACE 6 > " <235> 

134 PRINT" i POUN GREEN R1GHT2 RVSQN SPACE 
5 RIGHT RVSOFF BRONN SPACE! -C SP ACE RVSON 

RIGHT GREEN SPACE 12y Z0<. SPACEy P0WTSiSPA 
QE6y n <235> 

135 PUK£2O40,46jP0KE2O4l,50sPQKE2O42 t 49s 
P0KE2O43 , 48 ; P0KE2O44 ,47 s P0KE2O45 ,51 < 1 7 1 > 

1 36 POKEV+28 ,31: POKEV+37 , 7* POKEV+38 , 6 : PO 
KEV+22,20B <94> 

137 POKEV+ 17, 23s POKE 198,0 <102> 

138 X=c0sF0RI=lT01000*X=l~XsP0KE2041,50+X 
!lFPEEKUO>>lllANDPE£K<198)~OTHENNEXT <92> 

1 39 POKEV+2 1 , O s RETURN < 1 75> 

140 REM****************************** <81> 

141 REM* MENUE * <34> 

142 REM****************************** <83> 

143 P0KEV*17,0:SYS49175*PQKEV+22,2Ö0sLE= 

1 v <B9> 

144 PRINT" tCLEAR YELLOM DOHM3 RIGHT Ii >SE 
LECT{SP4C£}6AME{:S£!^C£.}QPTI0NS" * <180> 

145 PRINT " I BOMM LIG.BLUE R VSON y "TAB ( 11) 
" iSPACgyPl i SPAC£2 yPL(W<: SPACE yG{>WE:<. SPACES 

y" " <229> 

146 PRINT" i POUN PURPLE RVSON y "TAB (11 ) " i£ 
P/^CE> F3< gP>tCe2> LEVEL< S/ t 4CE> BEBINNER" ~ <106> 

147 PRINT" { DOUN GREEN RVSONy " TAB ( 1 1 ) " CSP 

ACE y PS <. SPACE2y PO I NT I SPACE2 TABLE I SP ACE 3 > " <243> 

148 PRINT" C ÜOHH ORANGE RVSONy "TAB < 1 1 ) " IS 
PACEy F7i SPACE2 yTQP<. SPACE yiOtS PAC E8y" <217> 
14^ T 1 O r < rVTT7,2g ~ " '"" "' <163> 

150 POKE198,OsWAIT198,lsGETA* <51> 

151 IFA*="t£S:>"THENGOSUB121sG0T0l40 <226> 

152 IFA*="CfZ>"THENß0SUB157:G0T0140 <82> 

153 IFA**="{ FORKEN 167 <250> 

154 IFA*<>"{£3}"THENi5Ö <42> 

155 LE~LE+1:IFLE=4THENLE=1 <43> 

156 PRINT" J HOME D0HN12 PURPLE RVSON y "TAB 
<22>L*<LE)sGDTai50 <49> 

157 REM****************************** <98> 

158 REM* TOPTEN * <J4> 

159 REM**********«******************.* <100> 

160 P0KEV+17,0sSYS49175:P0KEV+22,200 < 188> 

161 PRINT" t CLEAR YELLOU RIGHT7 >INTERCEPT 

OR C SP ACE y BASE C SPACE3y TOPTEN tDQHN? " <234> 

162 FORI-lTOlO:P0KE646,I+l " <I20> 

163 PRINT" C DOUN RVSON RIGHTS SPACE? "RIGH 
T* ( "0"+MID* (STR* < I ) ,2 > „2> " i SPACE3 y "N* { I ) 

; H* < I) H Ü SPACEy " t NEXT <234> 

164 P0KEV-H7,22tP0KE198,0 <121> 

165 FORI-ITOIOOO: IFPEEK<JO) >1 1 1ANDPEEK t 1 

98 > =ÖTHENN£XT < 1 79 > 

166 RETURN <52> 

167 REM****************************** <108> 

168 REM* GAME , * <169> 

169 REM****************************** <HO> 

170 FLAS=OsPI-3 <205> 

171 SC*=»00O00" <88> 

172 P0KEV+17 T 0sSYS491755G0SUB243sG0SUB25 
2:G0SUB275 <io> 



12 



Computroni 



SM 



jB0d0* C 



m 



173 F0RI=829TQB60:P0KEI ,0s NEXTsPOKE844,B 
s P0KES49 , J s POKE828 , 1 s PGKE859 , 40-LE*8 

174 PGKEV+21,3sPQKEV+17,22sSYS49152sSYS5 
1 025: POKEV+2 1,3: PGKES+24 , Os POKES2B , O 

175 SC=0jF0RI»0T04:SC=SC+<PEEKU151-I>~4 
B>*10 A I:NEXTX 

176 SC$=RlGHT*<"0OOOO"+MID*<STR*(SC> ,2) , 
S> 

177 FORI=lT01OOO:NEXT 

178 IFSC=>10Ö00ANDFLAG=0THENFLAG=1 sGOTOl 
72 

17«? IFSC=>40OO0ANDFLAG=1THENFLAB«2j G0T01 
72 

180 PI=PT-1:IFPI>0THEN172 

181 PRINT" { HOME D0HH14 R1GHT14 BLACK SPA 
C£ >6AME { SPACE ! OVER { SPACE * " : POKES+24 , 

182 FGRI=lTOlO00: IFPEEKOO) M11THENNEXT 

1 S3 POKEV+2 1 , O : I FSC* >=H* < 1 ) THENGOSUB 1 92 

184 GOT0140 

1 85 REM****************************** 
1B6 REM* TOP-LIST CHECK * 

1 87 REM****************************** 

188 FORJ=lTG10tIFSC*<H*<J>THENNEXT 

189 PRINTJ 

190 FORK=l 1TOJ+1STEP-1 : H* (K) =H* <K-1 > t N* < 
K) =N* (K-l ) s NEXTi H* ( 3) =SCS: N* < J ) =N* 

191 RETURN 

192 REM****************************** 

193 REM* NAME INPUT * 

1 94 REM*******«*******»*****-*******»* 

195 N*=""sX=Ö:POKEV-H7,OiPRINT"<:Ci£<flW>"s 
5YS49175 

196 PRINT" { V0UN5 RES} "TABC13) "CONGRATULA 
TIHNS" 

197 PRINT" iVOUHJ R1GHT3 BLUgJJHlSiSPACE} 
I S <SPAC£y ONE < SPACE} QP {SPACEy THE tSf£CE> ßE 
ST { SPACE ! TEN { SPACE y SCORES " 

198 PRINT" { D0UN4 RIGHTS GREEN RTGHT3 !ENT 
BRtSPACE! VOUR { SPACE ! NAME C SPACE2 HHITE y " ; 
:P0K£V+17,22 

199 POKE198,OsWAITl98,l5GETA* 

200 IFA*=CHR*<13>ANDX>0THEN204 

ÄQ1 IF«»»CH«*<^OyftNI>X>Q7HcNX-X-lsPRINrCH 
R*<20); jN*=M_EFT*<NS,LEN(N*)-1) 5GGTG199 

202 IFA*<"A"QRA*>"Z"0RX>14THEN199 

203 PRINTA*; : N*=N*+A*: X=X+1 : GOTO 199 

204 N*=LEFT£ ( N*+ u C SPACEi7 > ",17) 

205 PRINTgPRINT"C gg#a2 YELLOH RIGHTS ! THI 

SiSPACEyiSiSPACEyjQPTEHiSPACEyPaSJTIQNiS 
PACgy NO " ; s GDSUB 1 85 

206 F0RI-1T01000: IFPEEK < JG) >1 1 1 ANDPEEK { 1 
98> »OTHENNEXT 

207 RETURN 

208 REM*********************«,,**.*.*.*** 

209 REM* SOUND * 

210 REM**********»*«-*-»**»*******»**** 

211 5=54272! V=5324B 

212 F0RI=0TO24:P0KES+I,0;N£XT 

213 POKES+03,03 

214 POKES+06,252 

215 POKES+10,4 

216 POKES+13,252 

217 PQKES+17,5 

218 FOKES+20,252 

219 PQKES+24,15 

220 POKES+04 , O : POKES+04 , 65 

221 POKES+ll,0:POKES+ll,£5 

222 P0kES+lB,OcPaK£S+18,65 

223 FORJ=1T057:R£ADA.B,C 

224 P0KES+01,A*2 

225 P0KES+08,B*4 

226 P0KES+15,C*S 

227 F0RI-1T070 

228 NEXTI,J 

229 FORI =4TO 1 8STEP7 1 PDKES+ I , 64 : NEX T : RFTU 
RN 

230 DATA4, 3, 2, 4, 3,2, 4,3,2, 0,0,0,4,3, 2 



<158> 

<82> 

<206> 

<249> 
<B2> 

<113> 

<173> 
<39> 

<72> 

<16Ö> 

<16> 

<255> 

<126> 

<115> 

<12S> 

<211> 

<234> 

<183> 

<77> 

<133> 

<214> 

<135> 

<13> 

<S9> 



<131> 



<178> 

<ioo> 

<26> 

<126> 
<244> 
<105> 
<78> 



<143> 

<220> 

<93> 

<149> 

<146> 

<151> 

<186> 

<2> 

<191> 

<175> 

<5S> 

<166> 

<102> 

<157> 

<233> 

< 1 64 > 

<127> 

<254> 

<18S> 

<193> 

<254> 

<31> 

<15B> 

<164> 

<140> 
<227> 




Nein, nein, so eine alte „Mühte" fliegen Sie 
bei INTERCEPTOR BASE nicht! 



231 DAT A4, 3, 2, 4, 4, 2, 0,3,0,5,4, 3, 5, 4, 3 

232 DATA5, 4, 3, 0,3, 0,0, 2, 0,4, 4, 4, 4, 4, 4,0, 
3,0 

233 DAT A4, 3, 2, 4, 3, 2, 4, 3, 2, 0,0,0,4,3, 2 

234 DAT A4, 3, 2, 4, 4, 2, 0,3,0,5,4,3, 5, 4, 3 

235 DATA5 ,4,3,0,3,0,0,2,0,4,4,4,4,4,4,0, 
3,0 

236 DATA5,4,3,6,4,5,0,5,2,2,4,3 

237 DATA7,4,5,0,5,2,1,4,3,4,4,3 

238 DATA5, 4, 3, 6, 4, 5, 0,5,2,2,4, 3 

239 DATA7,4,6,0,5,3,1,4,4,1,4,4 

240 DATA3,2,3,3,2,3,3,2 T 3,3,2,3 

241 DATA2,3,2,2,3,2,2,3,2,2,3,2 

242 DAT A4, 1 , 1 

243 REM****************************** 

244 REM* SOUND * 

245 REM****************************** 

246 FüRI=OT024:P0KES+I,0:NEXT 

247 PDKES+0,O: PGKES+1 ,6s PQKES+5,0: POKES+ 
6,8+16*15 

243 PnKES+7,5Ö!pDKES+S,110:P0KES+12,0:P0 
KES+13, 0+16*10 

249 P0KEG+14,O:P0KES+15,9:P0KES+19,O 

250 POKES+21 ,OsPGKES+22,140:POKES+23,7+l 
6*15 

25 1 POKES+24 , 1 5+43 : RETURN 

252 REM****************************** 

253 REM* SCREEN-GAME * 

254 REM****************************** 

255 POKEV+ 17,0: PÜKE532B0 , O: PR INT " { CLEAR ! 
5 

256 PRINT" i DÖUN LIG.BLUE SPACES ! SCORE { SP 
ACE5 yTQP{ SPACE6 !Pll_OT{ SPACE4 yL.EVEL{ SPACE 
41 " ; 

257 PRINT" -E PPtffl ORANGE SPACE3 ! "SC*" ( SPAC 
f£>"H*<l) " <. SPACE6 y "PI " t SPACE41 "LS <LE) " {.S 
PACE2y " : 

25Q PRINT" {. BLACK PöMM>@e@@@€@e@@@@@e@@ee 



259 PRINT" Z HGREY DÖHN SPACE5 y = >7->*<: SPAC 
E97 = >4:{ SPACEi7 y ■" ; 

260 PRINT"-t SPACES y | - — _! = >->*{. SPACE4 y J -_ 
<. SPACE& y~>7'?'?->*{. SPACE3 y " ; 

261 PRINT" £ SPACEli y \ — -[ I SPACE13 1 \ — — -_ 
I C SPACE3 y " ; 

262 PRINT" <. SPACE4Q y " ; 

263 PRINT" i POHN ORANGE! QOQQQOOOOOOOqqooq 
OOÜOOOOOOOOOOOOOOOOOOOO" ; 

264 PR I NT " +*A*4++*^4>*^Jf"!n? > ^4 h ^ J f •f^^^^^+^^+A 



<234> 

<55> 

<230> 

<237> 

<5B> 

<63> 

<62> 

<65> 

<64> 

<231> 

<180> 

<39> 

<184> 

<181> 

<186> 

<36> 

<250> 

<162> 
<111> 

<161> 

<97> 

<193> 

<255> 

<195> 

<175> 



<99> 

<224> 

<I04> 

<249> 

<229> 

<235> 
<62> 

<1S8> 

<32> 



ComputroraiG 



Gofitf» 



ödöfcS* 



265 PRINT" i POHN PURPLE } I U ! I II I U I I I M I ! 
I I I I I I I I II ! I I I I II i ti II I"; 

266 PRI NT " +♦♦♦♦♦♦♦♦♦♦♦♦+♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
*♦♦+*♦+♦♦♦'*; 

267 PRI NT" ZBLUgy \ #*X&#Xfe& > #*X8t ! ! #X8.#*Z ! * 
% l #*X8 t *X&& ! ! !#*■/."; 

26S PRINT" Z BROHN SPACE4Q y"; 

269 PRINT" i SPACE2 i9\ I i I li 1 i t 1 I I I I I — I' O ' ( 
) -4) *+)«H ] | | | i r- 

270 PRINT" CSPdCO«) ! ! I I I I j ! I t ! M I t*+ T S (, 
^ , *+ CSMC£> wm"*nT""K SP>1CC > " ; 

271 PRINT" { SPACE40 5 " 5 

272 print" {st^öoeeeeeeeseeeeeeeeeaeeese 



5 

273 PRINT" I CYAN SPACE2 }FUE\_{ SPACE2 RED i 
ZPURPLEJt <jLI6 r RED> 



274 RETURN 

275 REM****************************** 

276 REM* SPRITES * 

277 REIi***********#*****#************ 

278 POKEV T 99 : POKEV+ 1 T 2 1 : POKE V+2 , 99 : PGKE 
V+3 , 2 1 1 s POKE V+37 , 1 5 P0KEV+3B , O 

279 PDKEV+2B , 65: POKEV+3«? , 2 : POKEV+40 , Os PO 
KEV+4 1 , O s POKE V+42 ,11s PÜKEV+43 , O 

2B0 PGKEU+44 , O : POKEV+45 , 3 1 PDKEV+46 , 

28 1 P0KE2O40 , 33 : POKE204 1,36: PÜKE2042 , 34 5 
P0KE2043, 35s P0KE2O44 , 53: PDKE2047 ,52 

282 RETURN 

283 REM****************************** 

284 REM* TITLE * 



<210> 
<42> 



<117> 
<96> 



<174> 



<lil> 
<71> 



<213> 



<il6> 
<161> 
<217> 
<132> 
<219> 

<206> 

<7> 
<1SB> 

<83> 
<169> 
<225> 
<19I> 



INTERCEPTOR-BASE- 



285 REM****************************** 

286 PRINT" I C LEAR D flHH2 >" 

287 PRINTTAB ( 15) " i YELLOü y INTERCEPTDRtDOH 

W>" 

28B PRINTTfiB ( 14) " < BLUE SPACES '(>*(> '4> ' + 

j .. 

2B9 PRINTTAB U4) "«EDJ*+, 8 I ,%r f *+*' 

290 PRI NT "<.RIGHTS_ D0UH3 GREEN >CQPYR ISHT -C 
SPACE ! 1 985 < SPACE ! BY t SPACE >RQNftLD £ SF4CE > M 
AVER" 

291 PRINT" i CYAN DOW43 SPACE 1 j > PRESS -Ü SP/iC 
£>FIRE^SP^C£>TDCSPjgCE>STARTtP0««2> " : PDKE 
903 , 22B: POKEV+1 7 , 22 

292 F0RI=82BTO86OsPOKEI,0sNEXT 

293 SYS49 152s FORI =22BTG1965TEP-. 1:PDKE90 
3,IsNEXT 

294 PRINT" t BLACK RVSON SPACE40 RVSQFF HG. 
REY> "i 

295 PRINT " Z SPACE40 3 " ; 

296 PRINT" {. SPACE4 J. /■/././■/./. /./■/■/./ 



297 PRINT" l SPACE3 y\ iTTTTTtTl TT\ ITTTTTri" 
IIHIII K SPACE 1 " | 

298 PR I NT " { SPACE2 1 ■/■/./././,/./■/■/./■/ 
■/./■/././././ CSPACE2J" ; 

299 PDKE82B , 1 : PDKEV+2 1 , 3 : GDSUB275 : P0KEV+ 
1 , 20O 

300 GOSUB208 

301 FORI=lTO30O0s IFPEEK ( JO) >1 1 1THENNEXT 

302 POKEV+21,0: RETURN 
ENDE DES LISTINGS 



<227> 
<26> 



<121> 



<80> 
<145> 



<129> 

<25> 
<59> 

<167> 

<7B> 
<95> 

<94> 

<232> 

<76> 

<77> 
<142> 
<36> 
<83> 



THEEND 



WM 



; : '..y ,- ; . -;■, Vorname : 



traße: *_ 



Wohnort: 



i orderiicaer Speicherplatz - 



m Penp 



-«-*» — 1 i . 



Ich versichere hiermit, daß ich der Autor des oben genannten Programmes bin und alle Rechte besitze. Ichbt 
mit einverstanden, daß Sie mein Programm meiner Ihrer Zeitschriften abdrucken und / oder dieses 
kommerziell verwenden. Das einmalige Honorar beträgt im Falle einer Veröffentlichung 120,- DM pro l 
abgedruckter Seite, Sollte das Programm nicht veröffentlicht werden, so bitte ich um Rücksendung meiner 




Folgende Unterlagen liegen diesem Schreiben bei: 

Kassette: _ , Diskette; Dokumentation: . — „____. Listing: H 



:kporto; ■■;•■: ,, , ., ; 



Unterschrift des Programmautors: 




3444WehretaM 



14 



Gomputronic 



Für alle C-64-Fans * Für alle C-64-Fans * Für alle C-64-Fans 



Ein Geschicklichkeitsspiel, das durch seine hervorragende Grafik besticht 



Das Abtippen: Die Programme werden in der Reihenfolge, wie sie ab- 
gedruckt sind, eingetippt und abgespeichert. Anschließend werden die 
ersten drei eingeladen und gestartet Nun wird das vierte Programm 
(Hauptprogramm) geladen. Dann gibt man "POKE 45, 0: POKE 
46,96:CLR ein und speichert es wieder ab. Dieses Programm ist die fer- 
tige Spielversion. Wenn man spielen will, lädt man also nur noch die- 
ses Programm ein. Die anderen drei Programme können jetzt gelöscht 
werden. 



Vorgeschichte: Sie haben nach unsäglichen 
Mühen und Entbehrungen ein Programm 
zustandegebracht. Dieses Programm 
schicken Sie an den Tronic-Verlag, um es 
veröffentlichen zu lassen und vor allem, 
um das Honorar einzustreichen. 
Nach Wochen gespannten Wartens kommt 
schließlich die tolle Nachricht: Ihr Pro- 
-gramm wird veröffentlicht. Ihr Honorar 
aber, und damit kommen wir zum Spiel, 
müssen Sie sich selbst „zusammenklau- 
ben". D.h.: Sie fahren vor der Wehre taler 
Skyline mit Ihrem Säckel hin und her und 
sammeln die Knete ein. 
So weit, so einfach. Damit Sie aber den 
Tronic-Verlag nicht bis aufs letzte Hemd 
ausziehen, ist eine Schwierigkeit einge- 
baut: Fällt zuviel Schotter (Aha, da is' es) 
neben Ihr hoffentlich prall gefülltes Sak- 
kel, ist Schluß. Dann wird der Tresor dicht- 
gemacht. 
Also ran an den Joystick, ran ans Geld! 




„Tach, Herr Tronic! Ich komme, um den Schotter abzuholen (greifer, gier) 



Schotter ~ Teil Uns 



C64 LISTING MIT CHECKSUMMEN <C Vl.O) 

106 REM ZEICHEN/SPRITES ZU SCHOTTER <47> 

107 ■ <165> 

202 s < 4 > 

203 DATfil, 0,24, 60,102,102, 126, 102,0 <76> 

204 DATA2,0, 124, 102, 124, 102, 102, 124,0 <109> 

205 DATA3, 0,60, 102,96,96,102,60,0 <1S> 

206 DATA4,0, 120, 108, 102, 102,108,120,0 <125> 

207 DATA5,0, 126,96, 124,96,96, 126,0 <165> 

208 DATA6.0, 126,96, 124,96,96,96,0 <30> 

209 DATA7, 0,62, 96, 96, 110,102,62,0 <233> 

210 DATA8, 0,102,102,102,126,102,102,0 <43> 

211 DATA9,0, 126,24,24,24,24, 126,0 <220> 

212 DATA10,0,6,6,6,6,102,60,0 <1S4> 

213 DATA11, 0,102, 108, 120,120,108,102,0 <79> 

214 DATA12,Ö, 96, 96, 96, 96,96,126,0 <10> 

215 DATA13,0,99, 119, 127, 107,99,99,0 <19> 

216 DATA14, 0,102, IIB, 126,126,110,102,0 <155> 

217 DATA15,0,60, 102, 102, 102,102,60,0 <119> 

218 DATA16, 0,124,102,102,124,96,96,0 <224> 

219 DATA17, 0,60, 102, 102, 102,110, 62,0 <156> 

220 DATAIS, 0, 124, 102, 102,124, 108, 102,0 <149> 

221 DATA19,0,62,96,60,6,6,124,0 <111> 

222 DATA20, 0,126,24,24,24,24,24,0 <1S2> 

223 DATA21, 0,102, 102, 102, 102, 102, 60,0 <252> 



224 DATA22 

225 DATA23 

226 DATA24 

227 DATA25 

228 DATA26 

229 DATA32 

230 DATA33 

231 DATA39 

232 DATA40 

233 DAT A4 1 

234 DATA44 

235 DATA46 

236 DATA48 

237 DATA49 

238 DATA50 

239 DAT AS 1 

240 DATA52 

241 DATA53 

242 DATA54 

243 DATA55 

244 DATA56 

245 DATA57 



102,102,102,102,60,24,0 

99,99,107,127,119,99,0 

102,102,60,60,102,102,0 

102,102,60,24,24,24,0 

126,12,24,48,96,126,0 

0,0,0,0,0,0,0 

24,24,24,24,0,24,0 



O 





O 

O 

O 

O 

24,16,0,0,0,0,0,0 

O 

O 

O 

O 



O 

O 



O 

O 



O 

O 

O 



24,48,48,48,48,24,0 

24,12,12,12,12,24,0 

0,0,0,0,0,24,16 

0,0,0,0,0,24,0 

60,102,102,102,102,60,0 

24,56,24,24,24,126,0 

60,102,12,24,4B,126,0 

126,12,24,12,102,60,0 

12,28,60,108,126,12,0 

126,96,124,6,102,60,0 

60,96, 124,102,102,60,0 

126,6,12,24,48,48,0 

60,102,60,102,102,60,0 

60,102,62,6, 12,56,0 

246 DATA12S, 0,0,0,0,0, 0,0, 127 

247 DATA129, 255, 195,3,3,3,3,3,3 

248 DATA1-30, 3,3,3,3,3,3,3,7 , 

249 DATA131, 0,0, 0,0, 0,0,0,248 

250 DATA 132, 232, 12,0,0,56,56,24,24,133,2 
4, 24, 27, 31, 30, 28, 24, 1B5 

251 DATA134,0,0, 143,223,216,216,223,207 

252 DATA135, 0,0,224,225, 225, 0,225, 192 



<167> 

<194> 

<127> 

<103> 

<8> 

<132> 

<i30> 

<119> 

<13> 

<239> 

<57> 

<190> 

<153> 

<29> 

<22> 

<40> 

<232> 

<255> 

<222> 

<175> 

<87> 

<242> 

<57> 

<36> 

<190> 

<119> 

<92> 

<145> 

<137> 



Com putrora ie 



im 




Cflgfltf» 



fa&tib 




253 DATA 136 

254 DATA 137 

255 DATA 138 

256 DATA 139 

257 DATA 140 
25S DATA 141 

259 DATA142 

260 DATA 143 

261 DATA 144 

262 DATA 145 

263 DATA146 

264 DATA 147 

265 DATA14B 

266 DATA 149 

267 DATA 150 

268 DATA 151 

269 DATA 152 

270 DATA 153 
2 

271 DATA 154 

272 DATA 155 

273 DATA 156 



0,0,254,254, 128,6,254,252 

0,0,127,255,199,192,255,126 

0,0,63,127,96,96,127,63 

0, 0,159, 191, 4B, 48, 191, 159 

0,0, 155,223,220,216,216,136 

0,0,231,239,108,108,111,103 

4B, 48, 240, 240, 48, 48, 240, 240 

0,0,0,0,112,112,48,48 

0,0,127,255,195,195,255,127 

96,96,96,224,192,0,0,0 

0,0,108,125,113,97,97,32 

0,0,252,254,134,134,254,252 

0,0,71,207,204,204,239,103 

0,0,0,0,64,192,64,0 

96,96,96,224,192,0,0,0 

6,6,246,247,119,7,246,242 

0,0,0,0,14,14,6,6 

63, 12,236,236, 140, 140,205, 10 



0,0,0,0,12,12,12,28 
24,24,24,24,60,60,36,36 
36,102,66,66, 195, 129,129,24 

274 DATA5B, 0,0,0, 16,0,16,0,0 

275 DAT A59 , 1 5 , 63 , 127 , 1 27 , 255 , 255 , 255 , 255 

276 DATA60,255,255,255,255, 127, 127,63, 15 

277 DAT A6 l , 255 , 255 , 255 , 255 , 254 , 254 , 252 , 2 
40 

278 D ATA62 , 240 , 252 , 254 , 254 , 255 , 255 , 255 , 2 
55 

279 DATA63,240, 192, 128, 128,0,0,0,0 

280 DATA64,0,0,0,0, 128, 128, 192,240 

281 DATA65,15,3,1,1,0,0,0,0 
232 DATA66,0,0,0,0,1,1,3,15 

283 DATA96, 0,0,0,0,0, 0,0,0 

284 DATA43 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 2 
55 

285 DATA47,0,0, 16,34, 182,246,255,255 

286 DATA10S, 0,255, 0,60, 0,0, 255,0 

287 DATAB5, 255, 255, 0,0,0,0,0,0 
294 DATA73, 1 ,1,1,1,1,1,1,1 

296 DATA74, 136, 136, 136,255, 136, 136, 136,2 
55 

297 DATA75, 192, 192, 192, 192, 192, 192, 192, 1 
92 

298 DATA76,0,0,0,31,4,4,4,255 

299 DATA77, 0,0, 0,125,69,125,73,255 

300 DATA78,0,0,0,244,22,21 ,244,255 

301 DATA79,0,0,0, 190, 136, 136, 190,255 

302 DATA80, 0,0, 0,248, 128, 128,248,255 

303 DATABi, 0,0,0,0,0, 0,0, 255 

999 DATA-1 

1000 REM *#****#*** SPRITES *******##*#* 

1001 DATAO, 16,0,0,40,0,0,40,0,0,68,0,1,2 
55,0,0^56,0,0,56,0,0,56,0,0,56,0,0,56 

1 002 DATAO , , 56 , , , 56 , , O , 56 , O , , 56 , O , O 
,56,0,0,56,0,0,124,0,0,124,0 

1003 DATAO, 124,0,0, 124,0,0,124,0 

1004 ■ 

1005 DATAO, 0,0,0,0,0, 0,0,0,0,0, 0,0, 0,0,0 
,0,0,0,0,0,0,1,8,0,1,240,0,0,224,0 

1006 DATAO, 248, 0,0, 240,0, 3, 1B4, 0,7, 28,0, 
15,62,0,15,30,0,15,158,0 

1007 DATAIS, 30, 0,7, 188, 0,3, 248,0, 0,0 

1008 i 

1 009 DATAO ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,1 

1010 DATA224, 0,7, 248, 0,15,252,0,30,222,0 
,2B, 158,0,62,223,0,62,223,0,30 

1011 DATA222, 0,30, 222, 0,15, 252, 0,7, 248,0 
,1,224 

1012 i 

5001 READDeIFD=-iTHEN5003 

5002 F0RTT-0TÜ7 i READDD t POKE 1 4336+0*8+ TT , 
DDsNEXTiGOTOSOOl 

5003 FGRT=255T0253STEP-1 

5004 FaRTT»0TD62s READD: PÜKET*64+TT,Ds NEX 
TjNEXT 



<S3> 

<148> 

<223> 

<211> 

<161> 

<225> 

<53> 

<100> 

<171> 

<11B> 

<248> 

<48> 

<92> 

<1H> 

<106> 

<236> 

<24S> 

<161> 

<185> 

<134> 

<159> 

<41> 

<46> 

<109> 

<144> 

<136> 

<89> 

<229> 

<1B9> 

<82> 

<211> 

<249> 
<34> 

<13B> 

<B0> 

<49> 

<66> 

<2> 

<138> 

<230> 

<242> 

<1B1> 

<99> 

<121> 

<90> 

<194> 

<248> 

<59> 

<251> 

<41> 

<207> 

<200> 
<157> 
<45> 

<49> 

<125> 

<157> 

<49> 

<1B> 

<87> 
<151> 

<245> 



Schotter - Zweiter Teil 



DATA169, 0,160, 0,141,232, 3, 141, 233, 3, 14 
1,234,3,141,236,3,153,0,212,200 <121> 

1 DATA192,24,20B,24B,169,31,141,24,212,1 
69,241,141,23,212,169,120,141,6 <30> 

2 DATA212, 169, 240,141, 13,212,141 ,20,212, 
169,33,141,4,212,169,100,141 ,235 <75> 

3 DATA3, 169, 17, 141, 11, 212, 169, 10 1,141, 18 

, 2 12, 76, 4 1,81, 88, 96, 32, 1B0, 80, 172 <B2> 

4 DATA232,3,1<?2, 12,240,7,200, 140,232,3,7 
6,49,234,160,0,140,232,3,174,233 <141> 

5 DATA3,224,64,2ÖB, 13, 162,0,142,233,3, 17 
3,236,3,73,255,141,236,3,189,217 <100> 

6 DATABO, 141, 1,212, 232, 1B9, 217, SO, 141,0, 
212,232,142,233,3,173,4,220,77 <214> 

7 DATA5,220,41,7, 10,168, 190, 25, Bl, 185, 26 
,81,32,165,80,142,8,212,141,7,212 <193> 

8 DATA142, 15, 212, 141, 14, 212, 76, 49, 234, 44 
,236,3,16,6,10,168,138,42,170,152 <231> 

9 DATA96, 76, 49, 234, 172, 234, 3, 192,4,240, 5 
,200,140,234,3,96,160,0,140,234 <52> 

10 DATA3, 172,235,3,200,208,2, 160, 100, 140 
,22,212,140,235,3,169,190,141,7 <S> 

11 DATA212,96,4,226,9,196,4,226,9,196,4, 

226, 9, 196, 4, 226, 9, 196, 4, 90, 8, 1B2 <236> 

12 DATA4, 90, 8, 1B0 ,4,90,8,180, 4, 90, B,1B0, 
6,133,13,10,6,133,13,10,6,133,13 <23> 

13 DATA10, 6, 133, 13, 10, 5, 207, 11, 158, 5, 207 
,11,158,5,123,10,247,5,123,10,247 <146> 

14 DATA19, 137, 21, 237, 23, 59, 26, 20, 29, 69, 1 

7, 103, 1 9, 137, 21, 237, 173, 1B, 208, 201 <204> 

15 DATA242, 208, 249, 169, 7, 141, 22, 208, 169, 
0,133,251,133,252,169,0,162,64,133 <17> 

16 DATA253, 134,254,141,0,192,169,1,162,0 
,157,192,219,232,224,39,208,248 <60> 

17 DATA120, 169, 113, 160, 81, 141, 20, 3, 140, 2 

1 ,3, 169,242, 141 , 18,208, 173, 17,20B <37> 

1B DATA41, 127, 141, 17, 208, 169, 129, 141, 26, 
208,88,96,173,25,208,141,25,208 <232> 

19 DATA48,7,173, 13,220,88,76,72,80,173,0 
,220, 201, 1 11, 240, 1B, 173, 1B, 208, 201 <8> 

20 DATA250, 176, 36, 32, 247, 81, 169, 250, 141, 
18,20B,76, 129,234, 120, 173, 17,208 <76> 

21 DATA41 , 127, 141 , 17,208, 169,240, 141 ,26, 
208,169,49,162,234,141,20,3,142 <173> 

22 DATA21, 3, 88, 165, 252, 240, 52, 162, 0,189, 
193,7,157,192,7,232,224,38,208,245 <195> 

23 DATA172, 0,192,177, 253, 201, 127, 240, 14, 
141,230,7,200,140,0,192,208,21 ,230 <20> 

24 DATA254, 76, 234, 81, 169, 0,162, 64, 133, 25 
3,141,0,192,134,254,169,32,141,230 <55> 

25 DATA7, 169, 241, 141, 18, 206,169,200, 141, 
22,208,76,129,234,169,0,133,252 <3B> 

26 DATA165, 251, 201, 2, 208,2,230, 252, 170, 2 
02,202,138,41,7,133,251,141 ,22,206 <239> 

27 DATA96, 169,0,32,41 ,82, 169, 11 ,32,41 ,82 

, 169, 12, 32, 41, B2, 169, 15, 32, 41, B2 <42> 

28 DATA169, 1,32, 41, 82, 96, 160, 0,153, 208, 2 
18,200,192,39,208,248,160,0,162 <S4> 

29 DATAO , 232 , 208 , 253 , 200 , 1 92 , 40 , 208 , 246 , 
96,253,169,0,141,32,208,141,33,208 <226> 

30 DATA169,11,141,17,20B,76,144,85,147,5 

, 83, 67, 72, 79, 84, B4, 69, 82, 33, 46, 32 <150> 

31 DATA71, 69, 70, 65, 76, 76, 69, 78, 32, SB, 32, 
32,32,32,80,85,78,75,84,69,32,58 <255> 

32 DATA32, 32, 32, 32, 32, 32, 32, 32,32, 32, 32, 
32,32,46,32,32,32,32,32,32,32,32 <61> 

33 DATA32, 32, 32, 32, 32, 46, 32, 32, 32, 32, 32, 

32, 32, 32, 32, 32, 32, 3£, 32, 32, 32, 32 <19B> 

34 DATA32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 46, 
32,32,32,32,32,32,32,32,32,32,32 <1B> 

35 DATA32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32,32,32,32,46,32,32,32,32,32,32 <94> 

36 DATA32, 32, 46, 32, 32, 32, 32, 32, 32, 32, 32, 
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32,32,32,46,32,32,32,32,32,32,32 <124> 

37 DATA32, 32, 32, 46, 32, 32, 32,32, 32, 32, 32, 
32,32,32*32,32,32,32,32,32,32,32 <172> 

38 DATA32, 32, 32, 32, 32, 32, 32, 46, 32, 32, 32, 
32,32,32,32,32,32,32,32,32,32,32 <233> 

39 DATA32, 32, 46, 32, 32, 32, 32, 32, 32, 32, 32, 
32,32,32,32,32,32,32,46,32,32,32 <1B7> 

40 DATA32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
46,32,32,32,32,32,32,32,32,32,32 <39> 

41 DATA32, 32, 32, 32, 32, 46, 32, 32, 32, 32, 32, 
32,32,32,32,32,32,32,32,32,32,32 <206> 

42 DATA46, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32,32,32,32,32,32,32,32,32,46,32 <190> 

43 DATA32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 46, 

32, 32, 32, 32^,32,32, 32, 32, 32, 32, 32 <27> 

44 DATA32, 32, 32, 32, 32, 32, 32, 32, 32, 46, 32, 
32,32,32,32,32,32,32,32,32,46,32 <71> 

45 DATA32 1 32,32,32,32,32,32,32,32,32,32, 
32,32,32,32,46,32,32,32,32,32,32 <104> 

46 DATA32, 32, 46, 32, 32, 32, 32, 32, 32, 32, 32, 
46,32,32,32,32,32,32,32,32,32,32 <89> 

47 DATA32, 32, 32, 32, 46, 32, 32, 32, 32, 32, 32, 
32,32,32,32,32,32,32,32,46,32,32 <240> 
4B DATA32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32,46,32,32,32,46,32,32,32,32,32 <60> 

49 DATA32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32,32,32,32,32,32,32,32,32,32,32 <125> 

50 DATA46, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32,32,32,32,32,32,32,32,32,32,32 <140> 

51 DATA32, 32, 32, 32, 46, 32, 32, 32, 32, 32, 32, 
32,32,32,46,32,32,32,32,32,32,32 <169> 

52 DATA32, 32, 46, 32, 32, 32, 32, 32, 32, 32, 32, 

156, 204, 20B, 209, 209,209, 209, 32, 32 <34> 

53 DATA159, 209, 32, 32, 32, 32, 32, 158,204,20 
5,206,207,208,32,32,5,205,208,209 <190> 

54 DATA209, 209, 32,32, 32, 32, 32, 32, 32, 32, 3 
2,32,32,32,156,32,201,202,202,202 <61> 

55 DATA202, 202, 202, 203,159, 20 1,202, 203, 5 

,32 ,209 , 32, 152,201 ,202,202 ,202 , 202 <0> 

56 DATA202 , 203 , 5 , 20 1 , 202 , 202 , 202 , 202 , 202 
,203,158,32,205,208,209,209,209 <10> 

57 DATA209,32,32,32,32,32, 156,201 ,202,20 
2,202,202,202,202,203,159,201,202 <166> 

58 DA TA203, 5, 201, 202, 203, 152, 201,202, 202 
,202,202,202,203,5,201,202,202,202 <116> 

59 DAT A202 , 202 , 203 , l 5B , 20 1 , 202 , 202 , 202 , 2 
02,202,202,203,32,32,32,32,156,201 <82> 

60 DATA202 , 202 , 202 , 202 , 202 , 202 , 203 , 1 59 , 2 
01,202,203,5,201,202,203,152,201 <17> 

61 DATA202 , 202 , 202 , 202 , 202 , 203 ,5,201, 202 
,202,202,202,202,203,158,201,202 <245> 

62 DATA202, 202, 202,202, 202, 203, 151, 32, 17 
2,172,172,172,172,172,172,172,172 <87> 

63 DATA172, 172, 172, 172, 172, 172, 172, 172,1 
72,172,172,172,172,172,172,172,172 <l> 

64 DATA172, 172, 172, 172, 172, 172, 172, 172, 1 
72,172,172,172,172,172,30,47,47 <20> 

65 DATA47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 
47,47,47,47,47,47,47,47,47,47,47 <65> 

66 DATA47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 
47,47,47,47,47,156,213,213,213,213 <146> 

67 DATA213, 213, 213, 21 3, 213, 213, 213, 213, 2 
13,213,213,213,213,213,213,213,213 <1S5> 

68 DATA213, 213, 213, 21 3, 213, 213, 213, 213, 2 
13,213,213,213,213,213,213,213,213 <1S6> 

69 DATA213,213,5, 17, 17,32,32,32,32,32,32 
,32,32,32,32,32,84,72,69,32,83,69 <56> 

70 DATA67, 79, 78, 68, 32, SO, 82, 79, 74, 69, 75, 
84,32,32,32,32,32,32,32,32,32,32 <222> 

71 DATA32, 191, 169,81, 162,82, 133,251,134, 
252,160,0,177,251,201,191,240,11 <68> 

72 DAT A32, 21 0,255, 200, 208,244, 230,252, 76 
,154,85,169,27,141,17,208,32,1B0 <47> 

73 DATAB5, 96, 173, 18, 208, 201, 240, 208,249, 
169,7,141,22,208,169,0,133,251,133 <57> 

74 DATA252, 141, 0,192, 133, 182, 14 1,3, 192,1 



41 ,B, 192, 169, 4, 133, 252, 120, 169, 244 <140> 

75 DATA160,B5,141,20,3,140,21,3,169,146, 

141 , 18,208, 173, 17,208,41 , 127, 141 < 167> 

76 DATA17,20B,169,129,141,26,20B,BB,96,1 

73, 25, 20S, 141, 25, 208, 4B, 7, 173, 13 <125> 

77 DATA220, 88, 76,49, 234, 173, 8, 192, 201,1, 
240, B6, 173, 18, 208, 201, 186, 176, 104 <S> 

78 DATA173, 0,220, 201, 119, 240, 50, 201, 118, 
240,46,201,117,240,42,173,0,220 <24> 

79 DATA201, 123, 240, 46, 201,122, 240, 42, 201 

, 121, 240,3B, 173, 235, 3, 201,255, 240 <44> 

80 DATA20, 201, 1,240, 27, 32, 48, 88, 169, 0,14 
1,27,208,169,1B6,14I,1B,20B,76,129 <162> 

81 DATA234,32,3,BB,169,0,141,234,3,76,61 

, 86, 32, B2, BS, 169, 1,141, 234, 3, 76 <109> 

62 DATA61 ,86 , 120 , 173, 17 , 208 , 41 , 127, 141 , 1 

7, 208, 169, 240, 141, 26, 20B, 169, 49 <60> 

83 DATA160, 234, 141, 20, 3, 140,21,3,88,173, 
18,208,201,199,176,66,173,0,220 <36> 

84 DATA201, 119, 240, 39, 201,118, 240, 35,201 

, 1 17,240,31 , 173,0,220,201 , 123,240 < 103> 

85 DATA30, 201, 122, 240, 26, 201, 121 ,240, 22, 
32,59,88,169,2,141,27,208,169,199 <227> 
B6 DATA141, 18, 208, 76, 129,234,32,242,87,7 

6, 161, 86, 32, 65, 88, 76, 161, B6, 169 <140> 

87 DATA199, 141, 1B, 208, 76, 129,234,169,146 
,141, 1B, 208, 169, 200,141, 22, 208, 165 <23> 

SB DATA1B9,208,6,76, 129,234,76, 108,87, 17 
3,234,3,201 ,ö, 2ÖS, 246, 201 , i ,208 <253> 

89 DATA3,76, 129,234, 162,0,1B9, 225, 5, 157,. 
224,5,189,225,217,157,224,217,232 <71> 

90 DATA224,39,208,239,162,0,1B9,9,6,157, 

8, 6, 189, 9, 21 8, 157, B,21B, 232, 224 <208> 

91 DATA39,208,239, 162,0, 189,49,6, 157,48, 
6,189,49,218,157,48,218,232,224 <18> 

92 DATA39,20B,239, 162,0, 189,89,6, 157, SB, 

6, 189,89,218, 157, BB,21B, 232, 224 <99> 

93 DATA39,208,239, 162,0, 173,224,5,141,7, 
6,173,8,6,141,47,6,173,48,6,141 <126> 

94 DATA87, 6, 173, 88, 6, 141, 127,6,173,224,2 
17,141,7,218,173,8,218,141,47,218 <8> 

95 DATA173, 48, 218, 141, B7, 218, 173,88,218, 
141,127,218,169,0,141,233,3,133 <49> 

96 DATA1B9, 76, 129, 234, 162,38, 1B9, 224, 5,1 
57,225,5, 189,224,217, 157,225,217 <69> 

97 DATA202,224,255,20B,239, 162,38, 189,8, 

6, 157, 9, 6, 189, 8, 218, 157, 9, 21B, 202 <192> 

98 DATA224,255,208,239, 162,38, 189,48,6,1 
57,49,6, 1B9, 48, 218, 157,49,218,202 <54> 

99 DATA224,255,20S,239, 162,38, 189,88,6,1 
57,89,6, 189, 88, 218, 157,89,218,202 <231> 

100 DATA224,255,20B,239,173,7,6,141,224, 
5,173,47,6*141,8,6,173,87,6,141,48 <92> 

101 DATA6, 173, 127, 6, 141, 88, 6, 173,7,218,1 

41, 224, 217, 173, 47, 218, 141, B, 218, 173 <13B> 

102 DATAB7,218,141,4B,21B,173,127,218,14 
1,88,218,169,0,141,233,3,133,189 <111> 

103 DATA76, 129, 234, 165, 251, 170, 202, 202,1 

38,41 ,7, 133,251 , 141 ,22,208,32,246 <104> 

«104 DftTA88,96, 169,0, 133, 1B9, 173,235,3,20 

1, 255, 20B, 9, 165, 252, 240, 5, 169, 0,141 <155> 

105 DATA235, 3, 165, 252, 201, 1,208, 5, 230, 18 
9,206,235,3,170,202,138,41,7,133 <236> 

106 DATA252,141,22,20B,32,127,SB,96,165, 

252, 141, 22, 20B, 169, 10,141,234, 3, 96 <215> 

107 DATA165, 251, 141, 22, 208, 96, 165, 251, 17 
0,232,232,138,41,7,133,251,141,22 <106> 

108 DATA20B,32,42,B9,96, 169,0, 133, 189, 17 
3,235,3,240,11,165,252,201,7,240 <165> 

109 DATA5, 169, 0,141, 235, 3, 165, 252, 201, 6, 
208,5,230,189,238,235,3,170,232,138 <4B> 

110 DATA41, 7, 133%252, 141, 22, 208, 32, 142, B 
8,96,172,6,192,32,157,88,136,136 <136> 

111 DATA140,0,208, 140,6, 192,96, 172,6, 192 
,32,202,88,200,200, 140, 0,20B, 140 <140> 

112 DATA6, 192, 96, 173, 16, 208, 41, 1,201, 1,2 
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3 REM 

4 REM 

5 1 

6 : 

10 FR INT" iCLEARHC) 



TEXT ERZEUGER 
SCHOTTER 



ZU 



1 9B5 ISP ACE > THE ISP ACE 



ISECONDt SPdCP PROJEKT t SP>flCE > CS 

P4C£2>" 

11 PRINT" «/P S£4C£40>" 

20 PRINT"-CÜPJHIERtSMC£>IBT{S^C£>ALBa{:S 
P/)£g> ' SCHOTTER ' . { SPACE 16 ! " 

21 PRINT" -CUP SPACE4p y " 

25 PRINT" {t/£}KEINE{S£i4C£>ANGST, {SP4CODA 

St SP/iCO HATC SPdC^ NICHTSt SPylCg iMITt SPlCg 

JEISENEAH" 

30 PRINT" CtfP>NENC SPlCC >ZlK SP>lCC >TLJN-C SRflC 

£> ! { SPACE > BE I { SP>1CE > SCHOTTER < SP4Cg >GEHT t 

S/MCg >E5C SP4CE >UM{ SP4Cg >FQL" 

40 PRINT" tt/P>GENDESl < SP4CO SIE< SP4Cg >HAB 

EN { SPACE ! EIN { SPACE y PROGRAMM { SPACE y BESCHR 

IEB" 

45 PR I NT " tu Py EN { SPACE y UND { SPACE ! ES { SPACE 

! DEMt SPACE l TRON I C t SPACE ! VERL AG t SPACE ) BES 

CHICKT. { SPACE yD" 

50 PRINT" {ÜP}ER{SP4C£>VERLAGtSPjrtC£>ER*<LA 

ERT <.SPACEySlCHlSPACE_y BEREIT , C S/MCO DIESE 

SfSP^CFlP" 

55 PRINT" CÜP>ROSRAMM{ SP>lCg >ZU{ SRflCE >VERO 

EFFENTLICHEN. {. SPACE S I HR < Sf^Cg > HONORAR " 

60 PRINT" {UP_ SP/1CO ABER, f Sf/ICO DAS-t SP/ICf 

} I ST { SPACE! DAS {SfMC£> GEMEINE, CSPjdCEJMUES 

SENt SP^CO SIE-C SPXCO " 

65 PRINT" CÜP>SICH-CSP^C£>SELBSTiSP^C£>BES 

ORGEN. CSPdCgJD.H. ( SP>lCg >SIE<: S/MC£ >MUE8SE 

NC SPACE yD" 

70 PR I NT " {U Py AS -C SP4CC 3 SELP { SPACE y AUFFANG 

EN-C SP/lCC 3QHNECSP>1CE>DASt SP/ICE >ETWftSt S/ > ^C 

£}RUNTERF" 

75 PRINT"ii/P3AELLT. { SPACE ! DENN C SPAC EyFAE 

LLT <SP4C£> MEHR {SPACE! ALS -C SP/ICEJ ERLAUBT £ S 

PACE !RUN1" 

80 PR I NT" { UPy ER -C SPACE ! 1 S £ SPACE y SCHLUSS { S 

P4C£ >MIT{ SF>lCg >KNETE{ SF4Cg > 1 ! {SP4COAL50 

{ SPACE y VORSICHT" 

85 PRINT" typ SPACE? UND <S£i9C£> NUN <SP4C£>V 

0RiSP4C£JALLEMiSP^C£J * VIEL£S£4C£}SPASS ' { 

SPjflCg> {SPACE2! " 



<5B=> 

<59> 

<210> 

<251> 

<63> 

<64> 



<107> 
<243> 

<203> 
<253> 



<204> 

<13> 

<220> 

<H8> 

<167> 
<44> 

<29> 

<222> 

<132> 

<56> 

<254> 

<i07> 



90 PRINT" £UP SPACE40 ! " <66> 
95 PRINT"CtfPJACH-CSP^Cg>Sa£SP^Cg>JA,C£P ; «C 
gJDIE^SjP4CgJSTEUERUNGs { SPACE ! JQVSTICK^gjP 

/qCg}P0RT£S/MC£:>" <41 > 

9S PRINT "■ ttipy 1 1 C S/MCf 3 ■ - ■- - i 

SPACE2Q y " <171> 

97 PRINT" {UP_ SPACE4Q y " <73> 

9B PRINT" -CÜPJ*»" <152> 

99 F0RT=0TQ2 1 *40 : P0KE4*4096+T , PEEK C 1 024+ 
TJiNEXT <130> 

1 00 PR I NT ■■' H CLEAR y " < 1 30 > 
ENDE DES LISTINGS 



Schotter - Vierter Teil 



HI=100 <196> 

1 : <5*?> 

2 REM iC) 1985 THE SEC0ND PROJEKT <23> 

3 REM <146> 

4 REM — SCHOTTER — <25> 

5 i <63> 
1 P0KE532B0 , 9 1 P0KE532S 1 , 9i S I =54272 s V»53 

248 s I FPO >H I THENH I «PO < 1 25 > 

15 FO-0 1 A6=0 1 BE-G i G=»0 1 GF-0 1 F A-0 1 P0KE5327 
2,31iF0KE53265,ll <167> 

20 PRINT" { CLEAR YELLQH SPACE 19 RVSOH y C " <105> 
25 PRINT" { SPACE11 RVSQtt !QC{ RVSOFF SPACE6 

RVS0N y\" <20> 

30 PRINT" C SPACE11 RVSOH ! AD { RVSOFF SPACES 

RVSOHy qt RVSOFF SPACES RVSON yiiXZ" <14B> 

35 PRINT" { SPACE 11 RVSÖN} BEFGH I JKLMNPRSTW 
Y " <95> 

40 PRINT" {SPACE22 RVSOHy QCRVSOFT SPACE2 
RVS0N !V" <109> 

45 PRINT " { SPACE! S ! PRESENTS i * <130> 

50 PRINT" { BLACK DOHN SPACE! ±> {SPACE! ; + >{ 
SPACE > 1 +>{ SPACE ! \7>{ $PACE ! I +>*++>*+++?; + 
>{ SPACE ! t+>*> <88> 

55 PRINT" C SP4CE2 >7t SP4Cg l+7*C SP/lCg >4-?*CS 
PACE y + \+lSPACE5+'?+{ SPACE y*+'?£ SPACE y±+'?<.S 
PACE y +?±{ SPACE y +-+ { SPACE ! 7 <250> 

60 PRINT" { SPACE4 y< + >t SPACE} + <.SPACE3y+++{ 
SPACE y + { SPACE S ■*■ <. SPACE2 y + C SPACE3 y+< SPACE2 
y+^7 {.SPACEy ++" <114> 

A5 PRINT" C SPACE4 y-\+{ SPACE y+-l C SPACE y+?+ 
{ SPACE y* \ +< SPACE2 y+{ SPACE3 y+{ SPACE2 >+-\ t 
SPACE y +<- <88> 

70 PRINT" { SPACE4 y<+-{ SPACE y<+-{ SPACE y< I = 
{ SPACE S <+** { SPACE y l +-C SPACE y i ■*■- { SPACE y<+= 
{ SPACE y<*> <230> 

745 PR I NT "{ UH ITE D0HN3 SPACE4} BESCHRIEBE 
H{ßPACEy\fON{ SPACE yi{ SPACE yEDZP i RJi{SPACEyU 
ITTIQ <246> 

750 PRINT" { BLACK D0UH2 SPACES > LETZTER {SP 
i 4Cg>HieHSC0RECSP4Cg_>t ,, jHI <120> 

755 P0KE532&5 , 27 » FORT-OT0500i NEXT i SVS2 1 
07 <122> 

800 SYS 204B0 <189> 

SOS IFPEEK (56320)01 11 THEN805 <85> 

810 FOKESI+ll,0sFCIKESI+lB,0iPOKEBr+4,0 <11> 
B20 P0KE532B0,0iP0KE53281,0 < 137> 

830 PRINT" i CLEAR HH1TE D0HH9 SPACE4yBESC 
HLEUN I GUNG { SPACE ! i < 206 > 

B40 PRINT" { DOHN Sf>1Cg4 >ANFANG5BE5CHW. {SP 
ACgy* <199> 

850 PRINT" { DQM SPACE7! ' BEFALLENE ' {. SPACE 
Ji <167> 

B60 PRINT" { HOME V0UH9 RIGHT2i y < { SPACE ! ' 1 
■ {.SPACEy BIS { SPACE y t>' { SPACE y) <162> 

B65 BETA*sIFA*< ,, l"ORA*>"&"THEN865 <253> 

870 PRINT" { LgFTJ9 >0.0*A*"{:SP^CE>SCHRITTE 
{SPACEZy» <60> 

875 PRINT" { D0HN2 LEFT19 ! < ' 1 ' t SR4Cg >BIStS 
PACE>"*'> <209> 

880 BETB* i I FB*< " 1 " ORB* > " 9 " THENBBO < 1 6 > 

885 PRINT" {LEFTJ9y 0. "B*" {SPACEy &CHR1TTE{ 
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Computroni 



fafl«* 10 



te&W 



SPACE3y " 


<B5> 


C£' 


1106 IFPEEK<V+16)-4THENFGKEV+16,0 


<47> 


890 PRINT" CD0UN2 LEFT19y i ' 1 ' ISPACEyBIBiS 




9 


1110 F0RT=OTO16SSTEPAßi POKEV+5, T 


<166> 


PACEy'9') 


<224> 




1115 IFT>160THENIF(PEEK(V+30)AND6)B6THEN 




B95 GETC* l I FC*< " 1 " DRC* > " 9 " THENB95 


<1B3> 


^^^H. 


1210 


<23B> 


900 PRINT" tLEFT19}>'C*" CSPACEySIHÜiSPACEy 




K~ 


1120 P0KEBI+l,255-TiNEXTsIFAG>2.9THENAG- 




ERLAUBT 


<169> 


^^ 


.9 


<15> 


910 PRINT" CBLACK D0HN4 SPACE8yp,LLEBtSPAC 






1200 PGKESI+1 1 , Ol POKEBI+l 1 , 129i FA»FA+1 t I 




E y R I CHT I G , ÜSPACEy DANN iSPACEy TASTE " i SYS2 1 






FFA=GFTHEN1220 


<221> 


0O7iPGKE19S,0 


<A2> 


H 


1205 PDKEV+21 ,3s PRINT" C«0«£> "TAB (21 ) FAe G 




920 GETD*i IFD*-" »THEN920 


<124> 


■ ■ 


OT01100 


<201> 


930 IFD*»"N"THENB20 


<140> 




1210 POKESI+1 1 , 0» POKESI+1 1 T 1 7: POKEV+21 ,3 




935 BE=VAL (A*)/lO0 


<129> 


f\ 


e PO»PO+ 1 1 


<24Q> 


940 AB=VAL (B*)/10 


<79> 


%J 


1215 PRINT" tHQMEy "TAB (33) POs G0T01 100 


<5B> 


945 BF=VAL <C*> 


<79> 




1220 P0KEV+21 ,0t PRINT" ZCLEARy " s PGKE49160 




1 005 PDKEV+i , 1 5& : POKEV+23 , 1 s PDKEV+0 , 255 j 




^^^ 


, 1 i F0RT»0T0100i NEXT ! PGKEV+22,200 


<13> 


PDKE491 52+6,255 


<49> 


™B™ 


1225 PRINT" tCLEAR UHITE DOHM iyfiMECSPACE 




1O10 POKEV+39,15sPBKE2040,255iPOKEV+2,i4 
6 1 POKE V+3 , 1 74 1 POKEV+29 , 2 


<3S> 


I 


y GVER {SPACE y BAME CSP4C£>OVER -C SP ACE y GAME tS 


<205> 


PACEy OVER {SPACE } GAME tSPACEy VER {.SPACE J G " 


1015 POKE V+40 , 1 i PDKE204 1 , 254 : PDKE2042 , 25 


. 


— 


1230 PRINT" tBLACK D0HN5 SPACEZ^y IHR {SPAC 




3iP0KEV+41,7 


<171> 




£> SCORE {SPACE! i { SPACE J " PO i SYB2 1 007 1 POKE 1 




1020 PGKEBI+13,0iPOKESI+12,9»P0KESI+24,3 




■ 


9B,0iP0KESI+4,129 


<10> 


lsP0KESI+23,241iPOKESI+B,iOO 


<60> 




1235 SETA* 


<102> 


1021 PDKEBI+6,240iP0KESI+4,33iPOKESI+22, 




^ 


1240 POKESI + 1 , INT (RND ( 1 ) *255) s P0KESI+22 , 




60 


<96> 


b 


INT<RND(1)*1003 


<5B> 


1 055 3 YB2 1 057 i POKEV+2 1 , 7 


<115> 




1250 IFA*-""THEN1235 


<1B9> 


1 lOO PQKEV+4, INT <RND i 1 ) #245) +10i PDKEV+30 






1255 PDKE8I+4, Os PRINT" ■££££>!£} "sPGKEV+22. 




, Os POKEV+5 , Os PÜKEV+2 1,7: AB»AG+BE 


<64> 


d 


200 ! POKEV+ 1 6 , ! GOTO 1 


<243> 


1105 IFPEEK(V+li>-5THENPDKEV+16,l 


<74> 


w 


ENDE DES LISTINGS 





Aktion fehlerhaftes Listing . . . Aktion fehlerhaftes Listing . . 



Liebe Fans, 



teilnehmen an unserer Aktion „fehlerhaf- 
tes Listing" können wirklich nur die einge- 
sandten Coupons. 

Ein Hinweis: Das Listing ist nur dann feh- 
lerhaft, wenn das Programm sich aufhängt 
bzw. eine ERROR-Meldung ausgibt (rich- 
tigeProgrammiereingabe ist natürlich Vor- 
aussetzung). 



Im letzten Heft hatte sich bei „Brückenbau" und bei „Pro da- 
ta" jeweils ein kleiner Fehler eingeschlichen. Die fünf glückli- 
chen Gewinner belohnen wir mit je 100 Mark! 

„Brückenbau": Roland Möller, Horgenzell • Thomas Roedern, 
München • Gervin Schulze, Bad Harzburg • Michael Wirtz, 
Hürtgenwald • „Prodata": Mario Guerrero, Recklinghausen. 



NachTOiS-COlipOn : CoiliputrOniC {an den TRONIC-Veriag, Postfach, 3444 Wehretal 1) 

Kennwort: • Fehlerhaftes Listing? * Fehlerhaftes Listing? * Fehlerhaftes Listing? 



Name/Vora£me: 



Straße, Nr.: 



PLZ/Ort: 



Datum, Unterschrift 



Ich habe folgenden Fehler in einem Listing entdeckt: 



Riamrmiame 



Seite 



Listing-Zeile 



richtig ist: 



Computronic 



IS 






Wer hat nicht auch schon einmal den Fassadenstreichern, die in 
schwindelnder Höhe, aufwackeligen Gerüsten das Äußere von „alten 
Gemäuern" verschönen, bewundernd bei der Arbeit zugesehen. 
Mit dem Spiel „Miner* haben Sie nun selbst die Gelegenheit den pro- 
duktiven und gefährlichen Beruf eines Fassadenstreichers aus- 
zuüben. 



TOP-Profrmm 

für 

VC-20 + 3K 



Miner in Action 



Miner versucht „malerisch" tätig zu wer- 
den, ohne dabei abzustürzen oder von sei- 
nen Gegner eliminiert zu werden. Um sich 
am Leben zu erhalten stehen ihm einige 
Hilfsmittel zur Verfügung. Mit einem 
Hammer kann er sich für eine Weile seine 
Gegner vom Leibe halten. Eine Kanone 
bringt ihn in die Lage, sich auf eine höhere 
Ebene schießen zu können. Wenn er zu- 
sätzlich etwas Sprengstoff sammelt, erhöht 
sich zudem noch seine Sprengkraft. Um 
zum gegenüberliegenden Gerüstteil zu ge- 
langen, muß er entweder die Leitern em- 
porsteigen oder sich einen Weg mit den 
Transportplatten bauen. 
Stürzt Miner zu tief oder wird er von einem 
seiner Gegner berührt, verliert er eines sei- 
ner Leben. 



(Siegfried Görk) 

Zur Eingabe: 

Das Programm besteht aus einem BASIC- 
und einem Maschinensprachteil. Um nun 
alle Teile in einem Programm zu vereinen, 
sind mehrere Schritte notwendig: 
Das Maschinenprogramm ist in DATA- 
Zeilen abgelegt und des Speichers wegen 
in zwei Teile zerlegt (MINDAT1 und MIN- 
DAT2). Diese Teile müssen nacheinander 
gestartet werden (möglichst vorher si- 
chern!). 

Dann muß das BAS IC-Programm (MIN- 
BAS) eingegeben werden. Läuft das Pro- 
gramm perfekt, müssen die Teile noch ver- 
bunden werden. 

Dazu sind folgende Befehle einzugeben: 
POKE 46,21 :POKE 45,240 
und 

POKE 46,29:POKE 45,240. 
Dann ist das Ganze sofort abzuspeichern. 




„Nee, nee, Miner - bleib ' lieber beim Fas- 
sadenstreichen. Das liegt Dir mehr!" 



MINER - Teil eins 



LISTING MIT CHECKSUMMEN (C Vl.O) 

lO PaKE54,23:PÜK£56,23:CLR <237> 

lOO FORr=588BT067B3STEP16:ZE=0:FORJ=ITfJI 

+15:READW:P0KEJ,W: ZE=ZE+WsNEXT <244> 

HO READW: IFW=ZETHENNEXT: END <107> 

120 PR I NT " ERROR { SPACE S I N " 1 OOO* ( I -5S88 ) / 1 

.6 <133> 

1000 DATA134, 168, 132, 169 ,32 , 1 15,0,32, 158 

, 205, 32, 191, 209,165, 101,166, 2009 <60> 

101O DATA168, 164, 169,96, 134 , 168, 132, 169, 

16B, 32, 162, 211, 32, 115, 0,32, 1952 <244> 

1O20 DATA139,208, 132,74, 133,73,32,208,21 

9, 166, 16B, 164, 169,96, 134,168, 22B3 <6B> 

1030 DATA 132, 169, 168, 16, 4, 169, 255, 208, 2, 

169, 0,32,145,21 1,76, 28, 1784 <210> 

1O40 DATA23, 32, 32, 32, 32, 32, 68, 68, 68, 0,10 

1,23,36,24,131,34, 736 <215> 

1050 DATA165,2,32,46,23,165,1,32,46,23,1 

65,0,76,46,23,234, 1079 <145> 

1O60 DATA32,0,23, 133,248,32,0,23, 133,247 

,32,0,23,133,251,32, 1342 <152> 

1070 DATAO, 26, 32, 128,23,138,32,20,23,32, 

240,23,133,76,20,23, 974 <B6> 

lOBO DATA173,62,3,201,8,144,60,173,60,3, 

201,8,176,12,144,51, 1479 <189> 

1090 DATA41, 6, 24, 105,2,205, 60, 3, 144, 41,1 

65,248,41,7,240,3, 1335 <119> 

1100 DATA162 f O,96,162,0,173,60,3,201,8,2 

OB, 2, 162^2, 173, 61, 1473 <202> 

1110 DATA3, 201, 8, 203,1,232,173,60,3,201, 

11,144,5,201,16,176, 1643 <114> 

1120 DATA1, 170,96,234, 162 ,0, 160,0, 165,24 



8,74,32,96,24,176,18, 1656 <B> 

1130 D AT A200 , 200 , 200 , 232 , 1 96 , 252 , 208 , 240 
,76,154,23,165,249,217,66,3, 26B1 <79> 

1140 DAT A208 , 238 , 88 , 234 , 234 , 234 , 1 34 , 254 , 
162,4,96,162,0,96,141,116, 2401 <56> 

1150 DATA162, 0,165,247, 41, 7, 208, 243, 165, 
248,41,7,240,7,173,63, 2017 <177> 

U60 DATA3,201,9,240,7,173,61 ,3,201 ,9,20 
8,2,162,1,234,234, 1748 <21 > 

1170 DATA234, 165, 243, 41, 7, 208,10,173, 61, 
3,201,10,203,3,162,2, 1736 <33> 

1180 DATA96, 240, 9, 173,63, 3, 41, 31, 201 ,23, 
176,9,173,61,3,41, 1343 <233> 

1190 DATA31 ,201,23,144,2,162,3,224,0,240 
,1,96,165,247,41,7, 1587 ' <44> 

1200 DATA208, 249, 165, 168, 201,1 ,208,243,1 
62,1,96,0,76,84,0,0, 1362 <113> 

1210 DATAO, O, O, 83,0, 130, 0,0,0,0,B3, 80,14 
1,114,144,0, 775 <7> 

1220 DATA165,249,217,66,3,240,2,24,96,i6 
'5,248,74,133,166,56,249, 2153 <65> 

1230 DATA65, 3, 16, 5, 201, 254, 144, 240, 96, 20 
1,4,176,234,56,96,127, 1918 <246> 

1240 DATA165,247,41 ,7 ,208,0, 165,248, 41 ,7 
,240,7,173,63,3,201, 1816 <171> 

1250 DATA9, 240, 11, 173, 61, 3, 201, 9,240,4,1 
62,0,240,2,162,1, 1518 <157> 

1260 DATA131, 82, 92, 0,1,0, 17 r 131,64,0,0,0 
,131,64,0,0, 71.3 <123> 

1270 DATAO, 131, 64, 0,0,0,131 ,64, 0,0, 0,131 
,64,0,0,0, 5B5 <41> 

1280 DATA131, 64, 0,0, 0,131, 64, 0,0, 0,13 1,6 
4,0,0,0,134, 719 <105> 

1290 DATAO, 0,0,0,134, 0,0,0,0,134, 0,0, 0,0 
,134,0, 402 . <175> 

1300 DATAO, 0,0, 134, 0,0, 0,0, 134, 0,0, 0,0,1 
34,0,0, 402 <113> 



Hohe Spielgeschwindigkeit - Hervorragende Steuerung ' - High-Resolution-Grafi 
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Cornputrctr 



1310 DATAO, 0, 134,0,0,0,0,134,0,0,0,0,66, 
80,27,0, 441 <136> 

1320 DATA169, 93, 141,15,144, 169 ,255, 141, 5 
,144,32,95,229, 169,0,133, 1934 <224> 

1330 DATA252,76, 80,25,30, 41 ,7,153,0, 150, 
185,0,22,153,0,31, 1205 <63> 

1340 DATA41 ,7,153,0, 151 , 136,208,231 , 185, 
64,25,153,64,3,200,192, 1B13 < 165> 

1350 DATA15 , 208 , 245 , 136 , 132 ,252 , 76 ,80 ,25 
i252,24,101,252,133,24B,230, 2409 <116> 

1360 DATA1 ,44,2, 1 ,8 ,2, 1 ,68, 13,255,52 ,8, 1 
,36, 6, O, 498 <49> 

1370 DATA169,27,141,21,3,169,192,141,20, 
3,169,255,141*36,145,169, 1801 <246> 

1380* DATA240 , 141 , 37 , 145 ,76, 29 , 26, 191 ,201 
,219, 1BB, 139,24, 135, 145,76, 2012 <169> 

1390 DATA162, 31, ,169, 199, 63, 190, 96, 93, 177 
,66,216,72,224,104,2,176, 2040 <22> 

1400 DATA32, 0,27, 160,0,177, 209, 201, 33, 17 
6,1,96,41,7,168,185, 1513 <92> 

1410 DATA59, 3, 96, 145, 96, 29, 26, 162,0,32,0 
,27,152,133,252,240, 1452 <27> 

1420 DATA76,0,27, 160 ,0 , 145,209 , 138, 145 ,2 
43,96,169,10,56,229,252, 1963 < 158> 

1430 DATA32, 0,27, 160,0,177, 243, 41, 7, 96, 2 
4, 101, 252, 133, 24B, 230, 1771 <16> 

1440 DATA169,168, 133,247, 169, BO, 133 ,248 , 
169,1,133,251,76,0,25,97, 2099 <53> 

1450 DAT A208, 244, 234, 234, 234, 96, 23, 28, 16 
5,17,4,111,102,108,108,96, 2012 <144> 

1460 DATA160.0, 169,32, 145,209,200,145,20 
9,96,188,139,24,135,145,76, 2072 <195> 

1470 DATA162,31,169, 199,63, 190,96,93, 177 
,66,216,72,224,104,2,176, 2040 <102> 

1480 DATA120, 166,249, 164,250,32,66,27,16 
2,3,188,165,27,138,24,105, 1886 <69> 

1490 DATA33,209,209,208,5, 189,60,3, 145,2 
09,202,16,237,165,247,74, 2211 <46> 

ISOO DATA74,74, 133,249, 170,165,248,74,74 
,74,168,133,250,32,66,27, 2011 <71> 

1510 DATA162.31 , 169,0, 157,8,29 ,202 , 16 ,25 
0,165,247,41,7,170,165, 1819 <64> 

1520 DATA251 , 10, 10, 10, 168, 169,8 , 133 ,97 ,.1 
85,0,28,157,B,29,200, 1463 <17> 

1 530 DATA232 , 1 98 , 97 , 20B , 244 , 32 , 169 , 27 , 16 
2,3,188,165,27,177,209,157, 2295 <25> 

1540 DATA60.3, 201, 32, 240,6,32,127, 27, 24, 
144,4,169,1,145,243, 1458 <241> 

1550 DATA138,24, 105,33, 145,209,202, 16,22 
5, SB, 96, 177,66,216,72,224, 2036 <148> 

ENDE DES LISTINGS 



MINER - Teil zwei 



LIST IMG MIT CHECKSUMMEN (C Vl.O) 

100 F0RI=6784TO7679STEP16: ZE=0s F8RJ=IT0I 
+15:READW:PDKEJ,W:ZE=ZE+W:NEXT <19> 

110 READW: IFW-ZETHENNEXT: END <107> 

120 PR INT" ERROR t SPACE ) IN" < I-67B4) /l . 6+1Q 
OO <101> 

1O00 DATA166,100,165,101,74,74,16B,32,66 
,27,32,224,25,165,101,24, 1544 <191> 

1O10 DATA101,102,42,201,16B,176,19,74,13 
3,101,41,3,208,19,160,21, 1569 <20> 

1020 DATA176,2, 160, 24, 177, 209,201, 32,208 
,7,169,0,56,229,102,133, 1885 <51> 

1030 DATA102,165,101 ,74,74 , 168,32,66,27, 
160,0,165,101,41,3,10, 1289 <213> 

1040 DATA145, 209,24, 105,1,200, 145, 209, 16 
5,253,145,243,136,145,243,96, 2464 <86> 
1O50 DATA169,0, 133, 103,164, 103, 196,252,1 
44,1,96,162,3,185,64,3, 1778 <245> 

1O60 DATA149, 99, 200,202, 208, 247, 32, 128,2 
6,162,3,164,103,181,99,153, 2156 <116> 

1070 DATA64 , 3 , 200 , 202 , 208 , 247 ,132,103,76 



,212,26,34,140,147,168,100, 2062 <119> 

1OB0 DATA234,234,169,127,141,34,145,173, 
32,145,41,128,133,1,169,255, 2161 <76> 

1090 DATA141 ,34, 145, 173,31 , 145,72,41 ,28, 
5,1,133,1,104,41,32, 1127 <159> 

1100 DATA133, 0,165,1,41, 4, 208, 2, 202, 234, 
165, 1,41, 8, 208, 2, 1415 <5> 

1110 DATA232,234,165,1,41,16,20B,2,136,9 
6,165,1,41,128,208,1, 1675 <34> 

1120 DATA200,96,72, 169, 15, 133,210, 13B,10 
,133,209,10,24,101,209,133, 1862 <91> 

1130 DATA209, 138, 10 , 10, 10, 10,38,210,24, 1 
01,209,133,209,169,0,101, 1581 <97> 

1140 DATA210, 133,210, 165,209, 133,243,24, 
165,210,105,120,133,244,152,24, 24B0 <117> 
1150 DATA101,209,133,209,133,243,144,4,2 
30,210,230,244,104,96,145,234, 2669 <22B> 
1160 DATA134,97, 132,98, 10, 10, 10, 168, 138, 
10,10,10,170,169,8,133, 1307 <100> 

1170 DATA99 , 1 B5 , O , 28 , 29 , 8 , 29 , 1 57 , 8 , 29 , 20 
0,232, 198, 99, 20S, 241 , 1750 <130> 

1180 DATA166, 97, 164, 98, 96, 0,22,1,23, 165, 
248,41,7,208,1,96, 1433 <97> 

1190 DATA168, 162, 15,94,8,29, 126,24,29,20 
2,16,247,136,208,242,96, 1802 <91> 

1200 DATA162,7,181,96,72,202,2OB,250,165 
,209,72,165,210,72,165,243, 2479 <139> 

1210 DATA72, 165,244,72, 162,0,160,0,32,0, 
27,134,1,132,2,32, 1235 <154> 

1220 DATA208,26, 104, 133,244, 104, 133,243, 
104,133,210,104,133,209,162,0, 22SÖ <53> 
1230 DATA104, 149,97,232,224,7,208,248,76 
,21,235,2,208,8,41,1, 1861 <71> 

1240 DATA126, 153,255, 129,255, 126, 22B, 7,0 
,0,0,0,0,0,0,0, 1279 <173> 

1250 DATA31 ,38,63,32 ,48,31 ,57, 1 , 128,64, 1 
92,64,192,128,0,192, 1261 " <8> 

1260 DATA7, 9, 15, 8, 15, 7, 2, 14, 224, 144, 240, 
16,240,224,112,0, 1277 <221> 

1270 DATA1 ,2,3,3,3,1 ,0,3,248, 100,252,252 
,252,248,156,128, 1652 <5> 

12BO DATA126,66, 126,66, 126,66, 126,66,255 
,85,136,85,34,85,255,0, 1703 <6> 

1290 DATA255, 0,0,0,0,0, 0,0, 0,0,0,56,120, 
16,16,16, 479 <193> 

1300 DATA126,94,94,94,223,I91,191,126,0, 
0,0,0,0,60,36,60, 1295 <164> 

1310 DATAO, 0,0, 0,0,255,153, 255, 0,0, 60, 36 
,60,255,153,255, 1482 <47> 

1320 DATA56,84,84, 124,238,56, 108, 255, 4B, 
104,104,124,96,56,80,88, 1705 <170> 

1330 DATA48,104, 104,124,96,56,32,48,24,4 
4,44,124,12,56,20,52, 988 <101> 

1340 DATA24 , 44 , 44 , 124, 12,56,8,24,56, 124, 
124,124,254,184,44,96, 1342 <81> 

1350 DATA56, 124, 124, 124,254,58, 104, 12,25 
5,127,63,31,15,7,3,1, 1358 <92> 

1 360 DATA 1 28 , 1 92 , 224 , 240 , 248 , 252 , 254 , 255 
,255,255,255,255,255,255,255,255, 3833 <89> 
1370 DATA1, 3, 7, 15, 31 ,63, 127, 255, 255, 254, 
252,248,240,224,192,128, 2295 <0> 

1380 DATA120,252, 192, 120, 13, 141 ,253,248, 
0,0,0,227,182,134,182,227, 2291 <154> 

1390 DATAO, 0,0,148,217, 217,217, 152,0,0,0 
,224,133,240,135,224, 1957 <89> 

1400 DATAO, 0,0,0,0,0, 0,0,3,6,6, 7, 6, 3, 2, 3 
, 36 <14> 

1410 DATAO, 0,0, 0,0, 0,0,0,0,128, 128,192,0 
,128,0,0, 576 <70> 

1420 DATAO, 0,0,0,0,0, 0,0,0,98,100, 8, 16, 3 
8,70,0, 330 <176> 

1430 DATA48 , 72 , 72 , 48 , 74 , 68 , 58 ,0 ,4 , B , 16 , 
,0,0,0,0, 468 ' <102> 

1440 PATA4,B,16,16, 16,B,4,0,32,16,B,B,B, 
16,32,0, 192 <12> 

1450 DATA8,42,2B,62,28,42,8,0,0,8,8,62,8 
,8,0,0, 312 <151> 
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1460 DATAO, 0,0,0,0,B, 8,16,0, 0,0,126,0,0, 
0,0, 158 <200> 

1470 DATAO, 0,0, 0,0,24,24, 0,0,2,4,8, 16, 32 
,64,0, 174 <54> 

14S0 DATA126, 126, 102, 102 ,102, 102,126, 126 
,56,56,24,24,24,24,24,24, 1168 <108> 

1490 DATA126, 126,6, 126, 126,96, 126, 126, 12 
6,126,6,126,126,6,126,126, 1626 <77> 

1500 DATA96, 10B, 108, 126, 126, 12, 12,12, 126 
,126,96,126,126,6,126,126, 1458 <92> 

1510 DATA126, 126,96, 126, 126, 102, 126, 126, 
126,126,6,6,6,6,6,6, 1242 <4> 

1520 DATA126, 126, 102,126,126, 102,126, 126 
,126,126,102,126,126,6,126,126, 1824 <202> 
1530 DATAO, 0,8, 0,0,8,0,0,0, 0,8,0,0,8, 8,1 
6, 56 .. <43> 

1540 DATA14, 24, 48, 96, 4B, 24^14 „0,0, 0,126, 
0,126,0,0,0, 520 <255> 

1550 DATAÜ2, 24, 12, 6, 12, 24, 90, 69, 73, 67, 7 
2,69,78,68,69,70, 915 <135> 

ENDE DE8 LISTINGS 



MINER ist top! - Teü drei 



LISTING MIT CHECKSUMMEN (C Vl.O) 

S POKES4,23:POKE56,23:CLR:GGTOiOOO <83> 

lO PRINT" { ffOWC RIGHT4 GREEH i "MIPS <STR$ <5 

C) ,2) s RETURN <68> 

1000 SYS256*25s J0=5968: SP=59B4: P0KE36879 

, 8 : FF= 38400-7680 : SU=0 : M A=3 : LV=0 < 202 > 

1010 XM=20:YM=16B:SYSSP,XM,YM,18,A,AsR=l 

7 <196> 

15O0 F0KE37157,255-40*LV <194> 

2000 DATA16, 3, 0,3, 3, 4, 5, 3, 13, 4,4,10,2,5, 
17,5,7,0,6,8,14,5,9,8,4,10,5,1,12,5,2,12 

,8,4 <I8l> 

2001 DATA14, 0,4, 14, 12, 10, 16, 2, 4, IS, 17, 3, 
20,13,5 <74> 

2002 DATA2, 3, 3, 4,12,7,10 <176> 

2003 DATA4,2,5,2, 15, 13,2, 17,18 <111> 

2004 DATA4,3,11,6,1,11,9,19,15 <131> 

2005 DATAO <191> 

2006 DATAO <192> 

201 DATA 16, 4, 19 j 3, 5, 0,2,5,3,8, 5, 14,4,7, 
6,4,8,14,2,8,17,5,9,0,4,11,3,2,11,6,6,13 

,11,4 <242> 

2011 DATA14,0,4,15,I3,4,1B,10,4,18,17,5, 
19,4,3 <86> 

2012 DATA3,5,2,4,8, 16,7, 11,5,8 <146> 

2013 DATA4,4, 15,6,7, 12, 12, 17,20 <113> 

2014 DATA4,4,10,7,15,10,8,17,11 <134> 

2015 DATAO <201> 

2016 DATAO <202> 

2020 DATA 15, 3, 6, 1,3, 8, 1,4, 11 ,4, 7, 5, 4, 7,1 

2, 7,7, 20, 2, 11, 0,5, 11, B, 2, 11, 11, 2, 11, 18, 3 <107> 

2021 DATA16, 8 ,4, 16, 15 ,2, 16, 20,2,18,2, 4, 2 
0,8,3 <230> 

2022 DATA3,3,7,4,7,19,4,11,10,5 <97> 

2023 DATA4,6, 17, 10,2,15,15, 17,3 <165> 

2024 DATA4, 3, 13, 10,9,15,8, 21, 14 <183> 

2025 DATA3,11,13,16,12,16,17 <95> 

2026 DATAO <212> 

2030 DATA14,4,0,7,5,9,2,5,14,B,8,3,5,8,1 
9,3,9,12,4,10,9,2,12,0,5,12,16,3,15,0,6, 
15,10,3 <251> 

2031 DATA15, 19,3, 18,0,7,18, 16,6 <S9> 

2032 DATA3, 12,5,3, 15,6,3, 18,7,4 <24B> 

2033 DATA3,4,16,7,5,11,17 <133> 

2034 DATA4,9,9,17,20,21,2,21,12 <34> 

2035 DATA1,15,13 <39> 

2036 DATAl."t tfOtfE VOUH11 G/JEEN lMMtii DPUHS 
LEFT3 >HNNZ DOHN3 LEFT3} 000 CDOitM± RIGHT17 
HHITE y\-< HÖME l" <165> 

2040 DATA13,3,11,8,6,0,1,6,2,8,6,12,6,10 
,11,3,12,6,12,13,0,2,16,0,4,16,5,6,16,14 



,7 <228> 

2041 DATA18, 10,5,3,20,2,8, 19,3 <95> 

2042 DATA3,6,1,7,16,4,6,3,19,5 <190> 

2043 DATA5, 2, 15, 5, 2, 11, 11, 15, 5, 15, 17 <B4> 

2044 DATAO <230> 

2045 DATAO <231> 

2046 DATAO <232> 

2050 DATA16, 3, 7, 3,3, 11, 2,5, 4, 6,5, 11, 3, 8, 
8,3,9,13,7,9,21,1,11,1,4,13,6,2,13,13,4, 
15,0,4 <6> 

2051 DATA15,9,2,17,6,3,17,13,2,19,2,2,20 
,12,4 <160> 

2052 DATA2,3, 10,5,9,20, 13 <62> 

2054 DATA4,2,8,S,17,10,3,19,14 <175> 

2055 DATA3,7,9,14,9,21,8 <161> 

2056 DATAO <243> 

2057 DATAO <244> 

2060 DATA13, 4, 6, 5, 3, 13, 3, 6, 0,4,9,8,7, 9,1 
6,4,14,0,8,14,14,8,16,10,2,17,0,3,19,5,5 <117> 

2061 DATA19, 12,5,5, 16,5, 10,4,2 <254> 

2062 DATA2,6,4,4,9,15,5 <107> 

2063 DATA6, 5, 2, 4, 18, 8, 11, 8, 17, 18, 7, 18, 14 <14> 

2064 DATA3,3,8,15,10,15,11 <161> 

2065 DATAO <252> 

2066 DATAO <253> 

2070 KL=0 : XM=20 s YM= 1 68 s RESTORE s I FSU=OTHE 
N2080 <156> 

2071 FaRI=lTOSU:FDRJ=OTGl:READZsFORK=lTO 
Z:READX,Y,LsNEXT <228> 

2072 NEXT: F0RJ=0T02: READZ: IFZTHENFDRK=1T 
OZsREADX,Y:NEXT <126> 

2073 NEXT! READZ: IFZTHENFORJ=iTOZ:READA*: 

NEXT <234> 

2074 NEXT <164> 

2080 F0RI=0T01000*(5-SU) s NEXTs PGKE252,0: 
PRINT" Ü CLEAR -J ": IFSU=7THENSU=0:LV=LV+1 : BG 
T01500 * <113> 

208 1 FM=22: READZ sFORJ=lTOZ -.READY, X,L:P=7 
680+22* Y+ X : FOR I =PTOP+L- 1 s POKE 1,9: POKEFF+ 

1,7: NEXT <55> 

2082 FM=FM+Ls NEXT <43> 

2083 F0RI=7680+484T0I+22iP0KEI,9:P0KEFF+ 
I,7:NEXT <172> 

2084 READ Z : FÜR J = 1 TDZ s READY , X , L S P=76BO+22 
*Y+X:FGRI=PT0P+22*L-lSTEP22:P0KEI r 8:PGKE 
FF+I,1 ' <179> 

2085 NEXTI,J <237> 

2086 READZs F0RI=0TGZ*3-lSTEP3s READY, X: PO 
KE832+I , 1:P0KE834+I , Y-. PQKEB33+I ,X*4»NEXT <54> 
20B7 P0KE252,Z*3:P0KE253,1 <69> 

2088 READZ: IFZTHENFORI=lTGZ: READY, XiROKE 
7680+22*Y+X, 1 1 s POKE3B4O0+22*Y+X ,3: NEXT < 178> 

2089 READZ: IFZTHENFORI=lTOZ:READY, X : POKE 
7680+22*Y+X„ lO: NEXT <237> 

2090 READZ: IFZTHENFORI=lTQZ: READA*s PRINT 
A*j:NEXT <B5> 

2091 FORI=iTOMA:POKE7692+I ,16: IFKBTHENN 

EXT <1> 

2099 PRINT" < HOME CYJW y\l^ " <131> 

2998 SO=36876sRA=36877 <HO> 

2999 P0KE36877 , Os P0KE36876 , : PQKE36S7B , 1 

5 <12B> 

3000 SYSSP,XM,YM,R+Z,L,B:SYSJG,XR,YR,S:X 
A=XR*2: IFS=0THEN4000 <30> 

3005 P=22*PEEK (249) +PEEK (250) +38422: IFB< 
>10R<PEEK(P)AND7)07THEN3008 <12> 

3006 POKEP , 4 : SC=SC+ 1 : GOSUB 1 O : FM=FM- 1 : I FF 
M>0THEN3008 <65> 

3007 MA=MA+ 1 : SU=SU+ 1 : SC=SC+SU* 1 A L V : GOTO 

207O <10S> 

3008 IFL>3G0T041OO <57> 

3009 GZ=GZ-i:IFGZ=OTHENPOKE253,l <129> 

3010 IF<XRANDLO3ANDB=lANDXA+XM>=0ANDXA+ 

XM< 1 70 ) =0THEN3020 < 25 1 > 

3011 PGKERA,250+3*Z:R=18-XR:Z=Z+1AND1:XM 
=XM+XA:POKERA,0:GOT0300Ö <233> 
3020 IFYRANDL=3THENYM=YM+YR*2: Z=Z+1ANDI : 
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ßOTD3O00 <104> 
3030 IFYR=-iANDL=2THENYM=YM-2:R=21 : Z=Z+1 

AND1 : G0TO3000 <240> 
3040 IFYR=lANDL=lTHENYM=YM+2sR=2l! Z=2+lfi 

NDlsGDTD3000 <118> 
3050 IFYR=-lANDL=lANDCYMPlND7)THENYM=YM-2 

i2=2+1AND1sGOT03000 <209> 

3055 FA=0 <152> 

3057 IFB=2THEN3100 <229> 
3060 I FB=OANDL=OTHENF A=F A+ 1 ! Yli=YM+2 s SYSS 
P,XM,YM I R,L,B!P0KE36876,240~2*FA!GOTD3O6 

<88> 

30A5 P0K£36B76,0: IFFAM6THEN4300 <179> 

3070 IFB=2THEN3iOO <242> 

3099 G0T03000 <Bh> 

3100 XX=-1 : F=PEEK (249) *22+PEEK (250) +7680 

: IFPEEK <P+21 ) < >32THENXX=1 - < t02> 

3110 POKEP+22,32 <38> 

3115 XH=X«+XX*2sSYSeP I XM,YM,16,L,B <79> 
3120 IF (XMAND7) >OORPEEK <PEEK<249) *22+PEE 
K (250) +7702+XXK >9ftNDPEEK (831 ) < >9THEN31 1 

5 <114> 
3 1 30 POKEPEEK < 249 > »22+PEEK < 250 ) +7702 , 1 : 

XM=XM+XX*2sSYSSP,XM,YM,R+Z,L,BiS0T03O10 <167> 

3999 GOT03OÖ0 <221> 

4000 YM=YM-2 <253> 

400 1 F0RA=-4T020 : FOR YM=YMTOYM+A*2STEPSGN 
(ß)*2:SYSSP,XM,YM,R+Z,L,8 <1S9> 

4005 rFB=OTHENNEXT: POKE36876, 230-2* ABS ( A 

) : XM=XM-XA*< 4XM+XAAND255X170) sNEXT <232> 

4006 POKE3687Ä,Os IFA>fcTHEN4300 <122> 
4010 XA=0sG0T03005 <104> 
4100 IFL=4AND6Z<=0THEN430O <6> 



4105 IFL=4ANDGZ>0THEN4200 

4110 IFL=llTHENP0KES0,200iP0KES28,32sP0K 
E253,4:GZ=50:SC=GC+10:G0SUB10iPaKES0,0:G 
0T03010 

4120 IFL>11ANDL<16THEN4400 

420O PGKE5CI , 1 40 : Z A=PEEK < 252 ) : P=832+3*PEE 
K (254 ) s PGKE252 , 0: PE=ZA+829 
4205 PZ=7t80+22*PEEK<P+2)+PEEK<P+l > /4:PO 
KEPZ ,32:POKEPZ+l ,32 

4210 FGRl=OTQ2:POKEP+I,PEEK(PE+I) ; NEXT 
4220 POKE252 , Zft-3 : POKESO , O s G0TD30 1 
4300 FOR I = 1 5T00STEP- 1 : PDKE3687B , I : P0KE36 
877 , 200+1*2 : SYSSP T XM , 8+YM- 1 /2 , R+Z , A , A : NE 
XT 

4305 MA=MA-1: IFMATHEN207Ö 
4310 WAITO,32:WAITO,32,32:WAITO,32 
4320 RUN 

4400 IFL>12THENPOKESO,220:PDKE828,32:KL= 
KL+L-12:PDKESa,0:GaT03010 

4410 SYSSP,XM,YM,12,L T B:PDKE82B,32:P=768 
0+22*FEEK ( 249 ) +PEEK ( 250 ) 
4415 SYSSP, XM,YM, 12, L,B 

4420 SYSJQ,X,Y,S:X=X*2: IF (XM+XAND255X 16 
8THENXM=XM+X 
4430 IFSTHEN441S 
4435 POKERA,220 

4440 F0RI=12T01STEP-lsYM=YM-1.2"I*(KL/l. 
5+. 5> s P0KE3687B , 1*1 . 25 

444S IFYM>OTHENSY5SP,XM,Y!"1,R,L,B:NEXT:G0 
TO4460 

4450 POKERA,O:PGKE36878,15:KL=0:S0T04300 
4460 PDKERA , O s PGKE3&878 ,15: KL=0 : YM= YM AND 
254 : SYSSP , XM , YM , R , L , B s PGKEP , 1 2 : G0TÜ3O5S 
ENDE DES LISTINGS 



<15> 



<32> 
<99> 

<176> 

<221> 
<115> 
<Q3> 



<£> 
<79> 
<142> 
<122> 

<237> 

<205> 
<174> 

<254> 
<242> 
<136> 

<71> 

<2> 
<179> 

<25i> 



Okay, Miiier, dann mal ran an die Arbeit! Aber fall nicht von! Gerüst! 



WETTBEWERB : 



Auch diesmal wieder viele 
tolle Preise zu gewinnen! 



Vorsicht, Leute, aufgepaßt! Wie uns aus 
gutinformierten Kreisen mitgeteilt wurde, 
versucht ein raffinierter Betrüger, gefälschte 
Kunstwerke „an den Mann zu bringen". 
Nach harten Anstrengungen ist es uns end- 
lich gelungen, ein solches Machwerk „ergat- 
tern" und für Sie abdrucken zu können. 

Wir hoffen, Sie dadurch vor einem mögli- 
chen „Reinfall" bewahren zu können. 
Wenn Sie die nebenstehende Abbildung 
genau betrachten, werden Sie feststellen, 
daß sich das rechte Bild vom linken in fünf 
Punkten unterscheidet. Offenbar hat es un- 
serem „Künstler" an der Zeit gefehlt, um 
eine vollständige Imitation des Originals 
anfertigen zu können. 

Ihre kriminalistische Mitarbeit belohnen 
wir mit drei Datenträgern für den ersten, 
zwei Datenträgern für den zweiten und ei- 
nem Datenträger für den dritten Platz, 
nach freier Wahl aus unserem Software- 
Katalog. Wenn Sie also die fünf Fehler ge- 



funden haben, markieren Sie die Abwei- 
chungen auf der Abbildung, schneiden die- 
se aus, kleben sie auf eine Postkarte und 
„spurten" zum nächsten Briefkasten. Ein- 



senden an: TRONIC-Verlag, Postfach 41, 
Wehretal 1, Kennwort: „Frankenstein". 
PS. Absender nicht vergessen und Datenträ- 
ger-Wunsch angeben! (bez.) 
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Auf den Spuren von Fernando Cortez im heißen und staubigen Mexiko! 



Inkaschatz 44 



für den VC-20 in der Grundversion 



Wer mochte nicht auch einmal auf den Spuren von Fernando 
Cortez wandeln und in Mexiko zahlreiche Abenteuer bestehen 
und die sagenumwobenen Schätze derlnkas bergen. Doch bevor 
Fernando an die Schätze herankommt, hat er zahlreiche Gefah- 
ren zu überstehen. (Siegfried Görk) 



Das Spiel besteht aus drei Teilen: 

1. Zeichensatzumdefinierung 

2. Maschinencode 

3. Spiel 

Teil 2 und 3 werden automatisch nachgela- 
den, gespielt wird mit dem Joystick. 
Bitte unbedingt die Stoptaste der Datasette 
drücken! 

Am oberen Bildschirmrand befinden sich 
vier Anzeigen: 

1. Score = Deine Punktzahl 

2. TI — Deine Zeit 

3. LI = Deine Leben 

4. LE = Welcher Level? 

Fernando steht zu Beginn des Spiels in der 
Mitte des Bildes. Seine Aufgabe ist es die 
sagenumwobenen Schätze, die aus Ringen, 
Schwertern, Diamanten, Goldbarren, Kel- 
chen, Kronen und Leuchtern bestehen, 
einzusammeln. Doch auf dem Weg zu die- 
sen Schätzen wird er von Hunden, Schlan- 
gen und Adlern bedroht. 
Durch Drücken des Feuerknopfes kann 
Fernando - allerdings nur wenn er vorher 
stehen geblieben ist - seinen Gegnern 
springend ausweichen. Wenn ihn ein Geg- 










„ Gold hin, Gold her. Lieber -ne hübsche 
Maid in der Heimat als ein oller Inka in 
Mexiko!" 



Variablenliste: 

SC = Punktzähler 
LI = Anzahl der Leben 
LE = Levelzähler 

T = Allgemeine Zählvariable 
TI$ = Zeitzähler 
R = Richtung des Männchens 
M = Position des Männchens 
P = Körperform des Männchens 
(z.B. Schritte) 
PI = Körperform des Männchens 

(z.B. Schritte) 
ZI = Peek Position des Männchens 
Z2 = Peek Position der Farbe des 
Männchens 
F = Zur Farbengebung & 

S = Zur Tonerzeugung 
Kl = Joystickabfrage 
K2 = Joystickabfrage 



Und ihm auf ms Werk/- Die Inka- 
scaätze warten auf ihre Bergung! 



ner trotzdem berührt oder er in eine Fall- 
grube mit nach oben gerichteten Spitzen 
fallt, verliert er eines, seiner Leben. . 

Um zu den Inkaschätzen zu gelangen, 
steht Fernando nur ein bestimmter Zeit- 
raum zur Verfügung. Nach Überschreiten 
der vorgegebenen Frist wird das Spiel 
beendet. Zu Beginn des Spiels beträgt der 
Zeitraum ca. 70 Sekunden. Mit ansteigen- 
dem Level verringert sich die Spielzeit, so- 
bald man den Level erreicht hat, tauchen 
weitere bedrohliche Hunde und Schlangen 
mf. 



INKA-SCHATZ - Teil eins 



VC20-LISTINS + CHECKSUMMER <VC Vl.O) 

10 POKE52,26:POKE56,26sCLR:G0TOi00 < 155> 

15 ******-*******#*#** <243> 

20 * * <24> 

25 * AUF DER JABD * <233> 

30 * * <34> 

35 * NACH DEM * <145> 

37 * * <41> 

38 * INKASCHATZ * <B1> 
40 * * <44> 
45 ##«-*#**#**«■***#*** <17> 
SO * * <54> 
55 * (C) 10/1985 BY * <U7> 
60 * * <64> 
65 * 0. WINDEL * <26> 
70 * * <74> 
75 * TEL. TEL. TEL. * <234> 
80 * * <84> 
G5 * 05121/510771 » <182> 
90 * .* - <94> 
95 ****#***»********* <67> 



lOO POKE36879,B 

110 FRINT" t CLEAR DQHN7 KHITE RIGHT2 yEIH<. 

SMe£>WENie-CS£a££>6EDULD,-CRfGH75 DQtt MIDI 

ECSP/!C£:JDATA'SCSP i flC£>WERDENtRIffH75 DOHN y 

EINGELESEN -CS/MCE} ? " 

120 FORT=716ST075S3: READF: POKET ,Fs S=S+Fs 

NEXT 

130 F0RT=75B4T07679: POKET, O: NEXT 

133 TFfi< >^A?S5THENFRINT" i CLEAR DOHH6 RIG 

tfJ4?FEHLERt SP/ICf >IN{:SP/tCE?DENt «ieKT6 DOH 

N y ZE I CHENS AT Z { SPACE} DATA ' S t SPACE} ! " : END 

140 PRINT't CLEAR CYAN ffIStfTS > AUF C SP4CE JD 

ERZ SPACE * JAGD"SPC < 12) " C DOUN yUACH^SPACEyD 

EM" 

ISO FRINT" <. D0HN2 YELLOK RVSQN SPACE21 RJ_ 

GHT $£ACE}ItSP J ACEyUiS±ACE}K<.SPACE}PttSPAC 

EJSZSPACEyCi SPACE yHt SPACE yAt SPACE yTZSPAC 

EIZZ SPACE R1GHT SPACE21} " 

160 PRINT"< PflHH4 RIGHT MHITE} COMPUTER i DO 

«W}LAEDTttfP>TEILtS£4tfE:J2tye BLACK *" 

170 P0KE63 1, 1 31 sPOKE 198,1: END 

200 REM 

210 REM ZEICHENSATZ 

220 REM 

230 DATA24, 36 ,66, 66, 36, 24, 24, 0,1, 2 ,4, 72, 



<64> 



<135> 

<176> 
<96> 



<200> 



<170> 



<88> 

<156> 

<239> 

<87> 

<163> 

<107> 



S4 



Computronic 



^ frffi 



48, 4B, 72,0 <ioa> 

240 DATA62,62, 28, 2B, 8, 8,28,0, 85, S5, 127,2 
S,B,8,28,0 <228> 

250 DATA8,28,8 t 73,lQ7,127, 127,0, 15,31,63 
,126,252,248,240,0 <66> 

260 DATA24, 24,8, 28, 122,24,28,52,24,24,8, 
28,122,24,60,102 <62> 

270 DATA24,24, 16,56,94,24,56,44,24,24, 16 
,56,94,24,60,102 <43> 

280 DATA28, 92, 72, 62, 29, 2«?, 20,4,56,58, 18, 
124,184,1B4,40,32 <3> 

290 DATAO, 7, 4, 7, 1,7, 0,0,0,119,69,69,69,1 
19,0,0 <91> 

300 DATAO, 119,84, 118,100,87,0,0,0, 119,34 
,34,34,39,0,0 <196> 

310 DATAO, 71, 66, 66, 66, 119 ,0,0, 0,7 1,68 ,70 
,68,119,0,0 <18> 

320 DATAO,32,32, 120, 104,254,255, 126,32,3 
2,56,104,124,255,240,126 <200> 

330 DATAO, 14, 113, 97, 14, 16,16, 15,24, 2B, 2, 
2,60,64,32,31 <184> 

340 DATAO, 240, 120,62, 127,249,224 , 128,0, 1 
5,30,124,254,159,7,1 <104> 

350 DATA8, 8, 62, 8, 8, 8, 28, 62, 129, 255, 129, 2 
55,129,255,129,255 <68> 

360 D ATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 
0,Q, 16,0,16,0,0,0 <139> 

370 D AT A255 , 255 , 255 , 255 , 255 , 1 23 , 4 1 , 8 , 255 
,255,255,255,255,235,202,66 <76> 

3S0 DATA252 , 255 , 248 , 254 , 24B , 252 , 255 , 254 , 
254,252,248,255,252,254,252,248 <120> 

390 DATAO, 0,0,0,0,0, 0,0,66,83, 215, 255, 25 
5,255,255,255 <48> 

400 DATAO, 0,0,0,0,0,0,0, 16, 148,222,255,2 
55,255,255,255 <224> 

410 DATA31, 63, 127, 63, 255, 31, 63, 127, 127, 2 
55,63,31,127,31,255,63 <J30> 

420 DATA17, 91, 255, 255, 255, 255, 181, 36,36, 
181,255,255,255,255,91,17 <197> 

430 DATA 1,5, 15, 63, 15, 15,6,2,0,4,22,63,31 
,23,5,4 <12> 

440 DATA64 , 96 , 240 , 240 , 252 , 240 , 1 60 , 1 28 , 32 
,160,232,248,252,104,32,0 <149> 

450 DATAS8, 120,24,24,24,24,56, 126,26,30, 
24,24,24,24,28,62 <159> 

460 DATAO, 56, 108,94,250, 175,91 ,62,24,52, 
60,118,91,175,254,46 <50> 

470 DATAO, 0,0,0,66,83, 215, 255, 0,0,0,0,16 
,148,221,255 <115> 

480 DATA8, 20, 34, 127, 34 ,20,8,0, 0,34,119,3 
4,34,34,34,34 <190> 

ENDE DES LISTINGS 



INKA-SCHATZ - Teil Zwei 



lOO PDKE36879,8 <64> 

1 1 F0RT=6700T06952 : READF s PQKET , F : S=S+F : 
NEXT <86> 

120 IFS< >28Q55THENFRIMT" 1 CLEAR DQifN7 UHI 
T£ RIGHT4 } DAT AFEHLER ZSPACgy IM tgöjW RIGHZ 
?>MASCHINENCODE":END <12> 

130 PRlt4T" I CLEAR D0HN4 RZGHT HHl TEiCOHPU 
TERCPPHW3}LAEDT{ggtfN3}TEIL{: SP4CC }5{S L4CK 
>"CHR*<8) <91> 

140 PDKE631,131:POKE198,1jEND <209> 

500 REM <132> 

510 REM MASCHINENCODE <237> 

520 REM <153> 

330 DATA160, 18, 185,206, 31 ,201,13,240,15, 
201,19,240,26,136,192,1 ,240,3,24,144,237 
,24,144 <176> 

540 DATA30, 169, 32, 153, 206, 31, 169, 19, 200, 
153,206,31 ,136,24,144,230,169,32,153,206 
,31,169 <110> 

550 DATA1S,200, 153,206,31 , 136 ,24 , 144, 215 



,173, 225, 31, 201, IQ, 240, 3, 24, 144,10,169, 3 
2,141 

560 DATA225, 31, 169, 19, 141, 208,31,160, 2,1 
85,76,31, 201,20,240,15, 201 ,21,240,26,200 
,192,17 

570 DATA240,3,24, 144,237,24, 144,30, 169,3 
2, 153,76,31 , 169,21 , 136,153,76,31 ,200,24, 
144,230 

5B0 DATA169, 32, 153, 76, 31, 169, 20,136,153, 
76,31,200,24,144,215,173,77,31,201,20,24 
0,3,24 

590 DATA144, 10, 169, 32, 141, 77, 31, 169, 21,1 
41,92,31 , 160, 13, 185, 110,30,201,23,240,8, 
200,192 

600 DATA 1 9 , 240 , 1 8 , 24 , 1 4 4 , 24 1 , 1 69 , 32 , 1 53 , 
110,30,169,23,136,153,110,30,200,24,144, 
233,160 

610 DATA1 7 , 1 85 , 1 10 , 30 , 201 , 22 , 240 , 8 , 1 36 , 1 
92,11,240,18,24,144,241,169,32,153,110,3 
0,169 

620 DATA22,200, 153, 110,30,136,24, 144,233 
,173,122,30,201,23,240,10,173,128,30,201 
,22,240 

630 DATA16.24, 144,23, 169,32, 141 ,122,30,1 
69,22,141,122,30,24,144,10,169,32,141,12 
8,30 

640 DATA169, 23, 141, 128,30,96 
ENDE DES LISTINGS 



INKA-SCHATZ - Teil Drei 



10 PGKE36879,8 

20 POKE36869 , 255 

30 FOKE37154, 127 

40 POKE36878,15 

50 LI=3:LE=1;S=36874 

60 TI*="O00000" 

70 GÜSUBIOOO 

SO POKE8 145,18: PDKES027 , 20 : POKE7802 , 22 

90 I FLE >2TH£NPGKEB 152,19: PCKE8020 , 2 1 

lOO F=30720:M=7891sR=0 

HO Z1=32:Z2=1:P=8 

120 K1=PEEK (37137) 

130 K2=PEEK (37152) 

135 IFPEEK(M+22)=51THEN700 

1 40 I FPEEK i M+22 ) =320RPEEK < M +22 )< 60RPEEK ( 

tt+22) =50THENR=22s P=10: GQT0220 

150 IFK1=94ANDZ1=32THENGGSU860Q 

160 IFKl = HOTHENR=-l:P=6 

170 IFK2=119THENR=1:P=8 

180 IFKl=il8THENR=22:P=iO 

190 IFK1=122ANDZ1=25THENR=-22:P=10 

210 I FPEEK (M+R )< 44 ANDPEEKtM+R) >25ANDPEEK 

(M+R)O32THENR=0 

220 SYS6700 

230 I FPEEK (MX 24ANDPEEK ( M ) > 1 7THEN7Ö0 

240 IFR=0THEN320 

250 POKEM+F,Z2!POKEM,Z1 

260 M=M+R 

270 Z1=PEEK(M) ! Z2=PEEK (M+F) 

280 IFZK60RZ1=50THENSOSUB500 

290 IFZK24ANDZ1M7THEN700 

300 IFP1=0THENP1-1:GQT0320 

310 P1=0 

320 PÜKEM+F , 1 : POKEM , P+P 1 

330 I FR< >OTHENPOKES+3 , 1 90 : POKES+3 , 

340 IFVAL(RIGHT*(TI*,3))X120-10*LE>THEN 

ZE=l:GOTQ7O0 

350 PRlUT'i HOME HHITE RVSON J "SPC ( 1 1 ) RIBH 

T$(TI*,3) 

360 R=0: GOTO 120 

500 FQRT=2 15T0235STEP . 5 s POKES+2 , T ! NEXT : P 

OKES+2,0 

520 P0KES+2,O 

530 I FZ 1 =50THENBC=SC+ 1 s GOTOS50 



<237> 



<98> 



<43> 



<149> 



<26> 



<114> 



<145> 



<226> 



<0> 
<20B> 



<230> 

<170> 

<105> 

<163> 

<236> 

<40> 

<117> 

<203> 

<36> 

<1B3> 

<236> 

<250> 

<230> 

<22B> 

<130> 

<193> 

<90> 

<200> 

<95> 

<223> 

<187> 

<59> 

<4> 

<72> 

<81> 

<223> 

<151> 

<250> 

<43> 

<126> 

<191> 

<107> 

<13> 

<36> 

<250> 
<72> 

<60> 

<9> 

<70> 



'omp&ifponio 



*c^ 



540 SC=SC+Z1+1 

550 SC*=STR*(SC) 

560 SC=SC+ 1 OOOO : SC*=STR* C SC ) 



PRINT"<WO»F 



RVSON HHITE RIGHT4 , "RIGHT* (SC*, 4) : 5C=5C 
-1O0OO 

570 Y= Y+ 1 : I FY= i 4THENLE=LE+ i s Y=0 s GOT060 
580 ZI =32: RETURN 
600 I FP=60RP=7THENSR=- 1 : P=7 
6 1 O I FP=80RP=9THENSR= 1 s P=9 
620 IFPEEK (M-22+SR) < >32THENP=P-1 s RETURN 
625 FORT=24OT025O : POKES , T s tf EXT s PGKES , O 
630 P0KEM,32:P0KEM+F,Z2 
640 M=M-22+SR 

650 IFPEEK IM) 032THENRETURN 
660 PGKEM+F , 1 
670 PGKEM,P 

680 P=P-1-.P1=0:R=22+SR: RETURN 
700 POKEM,32 

7 1 O PGKEM+F , 1 : POKEM , 24 : POKES+3 , 22S 
720 FQRT=15TG0STEP-<T/150) : POKES+4.T; NEX 
T 

730 POKES+3 , Os PDKES+4 , 1 5 

740 LI=LI~1: IFLI=0QRZE=1THENPDKE7697, 176 
: GDTG900 

750 PaKE7697,LI-t-176 

760 IFPEEK CM+22 ) =51 THENPGKEM , 32 : GOTOl OO 
770 F0RT=78O2TQ7B08 : PGKET , 32 J PGKET+F , 4 : N 

780 FGRT=BO 1 3TG8028 : POKET , 32 : POKET+F , 5 : N 

EXT 

790 FORT=8 1 44T0B 1 60 s POKET , 32 : PGKET+F , 3 : N 

EXT 

800 GOTOSO 

900 PRINT" C tfOrtF D0UN8 RIGHTS RVSOH l r 

.... .. fl ~'-w- 

910 PRINT" {j fflffHTS HHITE RVSONy I GAME ISPAC 
EJOVERI" 

920 PRINT"-C f/P3 RIGHTS RVSON y i i" 

930 I FZE=lTHENFRINT"<;PflHJV HHITE RVSON YE_ 
LLQHJ UE INE C SPACE y Z 
EI T iSPACE> I ST {SPACE! ZU ZSPACE. JENDE " ; 
940 IF2E=1THENPRINT" CRVSONy 



950 WAIT37151 ,32,32 

960 RUN 

lOOO PRINT" -C CI EVI/? «WIT£>LMNC iRVSONyOOOOC 



<134> 
<199> 



<62> 

<152> 

<28> 

<199> 

<184> 

<168> 

<71> 

<52> 

<12> 

<23> 

<223> 

<149> 

<124> 

<57> 

<133> 

<255> 
<107> 

<49> 

<187> 

<54> 

<249> 

< 197> 
<172> 

<59> 

<25i> 
<186> 



<119> 

<210> 

<24> 

<77> 



RIGHT RVSOFF yQLlR VSQN yOOOZ RIGHT RVS0FF 1P 
L I RVSOH RIGHT RVSQFF RIGHT yQZt RVSON RIGH 

L PURPLE} ~ _„____„ — „ "C RVSOFF y" 

; <53> 

1010 PRINT" {GREEN! ■ < SP ACE ! . ■ / i SPACE y / ■ CS 
PACE2 y/£ SPACE y. . i SPAC£2 5//£ SPACE l/./< RED 
y,<J GREEN yOt REP y, — Z GREEN lK RED y, , C GREEN y 
IQJREDl -C GREEN y 1 < fl£f? >-, I GREEN JOOt WCD ? ,,l 
GREEN! lCREDy — ,"; <B7> 

1020 PRINT"<; BLÜ£: >Z\\3\]3\\3ZZ\1\\3\J\3Z^ 
i RIGHT9 y$ C PURPLE SPACE7 HHITE lAC YELLOH y 
Ci BLUE y •/.": <145> 

1030 PRINT" i UHITE yZZR! GHT2 YELLOH y&tBLU 
E RI GHTS y 7.1 iREUy Y I BLUE 5 ! # C RED y Y C BLUE J ! # ! 
*HZZ! ? < SPACE J##C SPACE y Wt RED JViBLUEyZl CR 
EDiyC BLUE y\l\\l\l\Z"; <64> 

1040 PRINT" IZZt HHI TEyZC BLUE yZZt HHITE y^CB 
LUE yZK RED yYi BLUE y^C YELLOH yDiREPyyC RIGHT 
8 BLUE y^Z\ll\\l\\iREDyYiBLUEy\MiREPyyiRI 
GHT7 YELLOH yBt BLUE yy."; <1Ö6> 

1O50 FRINT"^<:WI <jtfra RED yYt YELLOH yCtBLUEy 
*ZSt+CRZeHT>> <. RED yY<. BLUE y*<. RIGHT y <Z <. RIGH 

I Y ELLGH yE.i. RIGHT3 REDy Y tBLUEy !#ZttZ C RIGH 

II RED y\i BLUE RIGHT3 y*"i <184> 
1060 PRINT" UREDyyt BLUE y i IR IGHT l !#ZZZZZZ 
*< R1G HT4 REpyVi RIGHT HHITE IAC RIGHT BJMjgy 

7.ztREpyY<:8LtJEyj< spACE J\i\\i\-iiik-%i-i &<:/? 

EPyVt BLUE yi"; <54> 

1070 PRINT"ZtREP>Y"SPC(18)"YtB/.tfE>ZZ{ gEP 
yY<,HHITEy2<.GREEN SPACE 16 YELLOH JGCREQyYt 
BLÜE yZ"i <73> 

1O80 PRINT" ZZ*<.RZ GHT y ■ ##{R IGHT y ? «K K2GtfT > 
> ! ■#' j HREDyy<L BLilE y\$ZZZZZ<UiiITEyZ<LBLUEyT 
ZZ{.HHITEyZi. BLUE yzZt. HHITEy Z<. BLUE yZ\l\\HR 
£P3YtBtü£J\3 3Z"; <242> 

1090 PRINT"ZZZZZZZZZZZ IR IGHT YELLOH iOtB 
LUE RIGHT3. REDyyC YELL OH R IGHT yCC RIGHT BL 

UEyY,z\ii\-\\\\i\\b'&- 3 ■ tt<:REP_yy üBLtJEyz" i <i2> 

1100 PRINT" A "SPC(19) "C REP yyC BLUE yZ iY ELL 
OMEC CYAH SPACE 18 REPyyC BLUE JZZ'. !##!###! 
!#!!##!#!!Z i HOHE y " <24> 

lllO PDKE3a905,6:POKE8ia5,26 <i61> 

1120 POKE7697,Li+176 <47> 

1130 P0KE77Ol,LE+176 <218> 

1140 RETURN <6> 

ENDE DES LISTINGS 




VORHER - cmputmic-Abbo - NACHHER 



2@ 



Cornputronio 



Mit dem G-16-Computer auf den Spuren des* adligen Vorfahren im 



w 



HORROR-CASTLE" 



Dieses Spiel erscheint auf den ersten Blick recht einfach, doch sobald mehr Monster auf dem Bildschirm 
erscheinen, erschwert sich die Spielaufgabe ungemein. Auch Sie als erfahrener Homecomputer-Spieler 
kommen dann mit Sicherheit ins „Rotieren". 



(S.G.) 



Ihr adeliger Urgroßvater John McNeal hat 
im vorigen Jahrhundert ein Jagdschloß im 
stürmischen und sagenumwobenen Schot- 
tischen Hochland erworben. -Nach John 
McNeals Tod werden Sie überraschend als 
dessen Erbe eingesetzt. 
Voller Neugier und voller Erwartung ma- 
chen Sie sich umgehend auf den Weg. Bei 
der Begutachtung des Schlosses lernen Sie 
gleich die Tücke des Objekts kennen. Auf 
der ersten Besichtigungstour befördert Sie 
eine raffiniert angebrachte Falltür in ein 
labyrinthartiges Verlies, wo schon so man- 
cher sein Leben lassen mußte. 
Doch besteht eine Chance mit dem Leben 
davon zu kommen. In Ihrem Besitz befin- 
det sich ein Bauplan des Verlieses, in dem 
sämtliche Geheimgänge und -türen einge- 
zeichnet sind. Mit Hilfe dieses Planes kön- 
nen Sie an die versteckten Notvorräte ge- 
langen, die für Ihre Person lebensnotwen- 
dig sind (= Punktegutschrift). 
Doch aufgepaßt? Bei Ihrer Nahrungssuche 
werden Sie von blutrünstigen Vampiren 
bedroht. Die Geheimgänge und Geheim- 
türen sind nur von Ihnen allein passierbar, 



also eine Möglichkeit den Vamps auszu- 
weichen. 

Punktewertung: Bonbons vertilgen - für 2 
Bonbons die doppelten Punkte; für vier das 
dreifache; für sechs das vierfache. 
Mit Hilfe der Äpfel müssen Sie versuchen 
die Begriffe' „EXTRA 1 und „SPECIAL" zu 
vervollständigen. Diese Äpfel gilt es in die- 
sem Augenblick zu vertilgen, in dem unten 
links auf dem Bildschirm einer der fehlen- 
den Buchstaben erscheint. Wenn der Be- 
griff „EXTRA" vervollständigt ist, erhält 
man ein Zusatzleben, nach Vollendung des 
Wortes „SPECIAL" wird ein Bonus von 
17000 Punkten erteilt. 
Durch Betätigen des Feuerknopfes {Joy- 
stick Port 1) können Sie sich bis zur näch- 
sten Joystickbewegung unsichtbar ma- 
chen. Achten Sie dabei auf die Help-Anzei- 
ge, Sie können nur dann verschwinden, 
wenn die Help-Anzeige nicht auf Null 
steht. 

Das Spielgeschehen von „Horror-Castle" 
ist größten Teils in Maschinensprache ge- 
schrieben. 
Das Programm startet mit RUN und lädt 



John McNeal's 
Vermächtnis 




anschließend Zeichensatz und Maschinen- 
spracheroutine ein. Bitte zuerst die Datas 
der Maschinensprachroutine eingeben, da- 
nach die Datas für den Zeichensatz und 
schließlich das Hauptprogramm, das Sie 
aus dem Basic heraus saven müssen. 
Zeichensatz und Maschinenspracherouti- 
ne sind aus dem Monitor mit S „zs, mc", 
3400, 3f00 abzusaven. 



IOO 


REM 


ALL RIGHTS RESERVED 




T 


114 


REM * * 


lOi 


REM ****-****#-**#***#****-#***•* 


115 


REM * TEL.s 06575/8111 * 


102 


REM * 




* 


e 


116 


REM * * 


103 


REM * 


R & R PRESENTSs 


* 


• 


117 


REM ##**#*#*#**#**#*##*****#* 


104 


REM * 




# 


1 


118 


P0KE55 , : P0KE56 , 52 : CLR s RESTORE s 


105 


REM * 


CASTLE GF HORROR 


* 


1 




F0RI=14336TQ16127STEP16s SU=0 


106 


REM * 




* 






107 


REM **##*#******************* 




119 


F0RJ=0TD15 


108 


REM * 




* 


e 


120 


READZ & SU=5U+ZAND255 


109 


REM * 


CHRISTIAN RASKOB 


* 


• 
1 


121 


POKE I + J , 2 


110 


REM * 




* 


122 


NEXTJ 


111 


REM * 


GARTENSTRASBE 6 


* 


n 


123 


READS r I FS< >SUTHEN238 


112 


REM # 




# 




124 


NEXTI 


113 


REM * 


5561 8ROSSLITTQEN 


# 


s 


125 


G0T0240 



126 DATA 189,251,191,170,120,142,8,255,173,8,255,142,8,255,205,8,76 

127 DATA 255,208,242,174,8,255,224,247,208,3,76,167,57,224,251,208,247 
12B DATA 3,76,203,57,224,254,208,3,76,239,57,224,253,208,3,76, 116 

129 DATA 19,58,224,191 ,208,3,76,146,62,96,234,234,165,208,56,101,33 

130 DATA 232,144,2,230,209,133,208,96,165,208,24,229,232,176,2,198,184 

131 DATA 209, 133, 208, 96, 165, 210, 133,20B, 165, 21 1,133, 209, 96, 165, 208, 133, 122 

132 DATA 210,165,209,133,211,96,198,209,198,209,198,209,198,209,96,234,166 

133 DATA 234,234,234,234,32,84,56,160,0,173,52,3,145,208,162,0,219 

134 DATA 134,232,234,32,60,56,173,53,3,145,208,162,38,134,232,234,82 



Oomputronic 



27 



135 


DATA 


136 


DATA 


137 


DATA 


138 


DATA 


139 


DATA 


140 


DATA 


141 


DATA 


142 


DATA 


143 


DATA 


144 


DATA 


145 


DATA 


146 


DATA 


147 


DATA 


148 


DATA 


149 


DATA 


150 


DATA 


151 


DATA 


152 


DATA 


153 


DATA 


154 


DATA 


155 


DATA 


156 


DATA 


157 


DATA 


158 


DATA 


159 


DATA 


160 


DATA 


161 


DATA 


162 


DATA 


163 


DATA 


164 


DATA 


165 


DATA 


166 


DATA 


167 


DATA 


168 


DATA 


169 


DATA 


170 


DATA 


171 


DATA 


172 


DATA 


173 


DATA 


174 


DATA 


175 


DATA 


176 


DATA 


177 


DATA 


178 


DATA 


179 


DATA 


180 


DATA 


181 


DATA 


182 


DATA 


183 


DATA 


184 


DATA 


185 


DATA 


186 


DATA 


187 


DATA 


188 


DATA 


189 


DATA 


190 


DATA 


191 


DATA 


192 


DATA 



32,60,56,173,54,3,145,208,162,0,134,232,234,32,60,56,105 

173, 55, 3, 145, 20B, 32, 84, 56, 32, 102, 56, 173, 72, 3, 145, 208, 11 

162,0,134,232,234,32,60,56,173,73,3,145,208,162,38,134,54 

232,234,32,60,56,173,74,3,145,208,162,0,134,232,234,32,219 

60,56,173,75,3,145,208,96,162,4,202,189,52,3,157,60,109 

3,189,72,3,157,68,3,189,56,3,157,52,3,189,64,3,187 

157,72,3,224,0,208,227,32,116,56,162,4,202,189,60,3,179 

157,52,3,189,68,3,157,72,3,224,0,208,239,96,32,84,51 

56,165,226,141 ,232,0,32,72,56,32,93,56,32, 84,56, 160,213 

0,177,208,141,56,3,162,0,142,232,0,32,60,56,177,208,118 

141 ,57,3, 162,38, 142,232,0,32,60,56, 177,208* 141 ,58,3,230 

162,0,142,232,0,32,60,56,177,208,141,59,3,32,84,56,164 

32,102,56,177,208,141,64,3,162,0,142,232,0,32,60,56,187 

177,208,141,65,3, 162, 38, 142,232, 0,32, 60, 56, 177, 208, 141, 50 

66,3,162,0,142,232,0,32,60,56,177,208,141,67,3,32,101 

116,56,165,229,145,220,165,230,145,222,96,32,84,56,166,224,47 

134,232,32,72,56,160,0,177,208,133,229,166,225,134,232,32,174 

60,56,177,208,133,230,96,162,0,134,226,162,1,134,224,162,117 

39,134,225,162,60,160,72,142,23,57,142,160,57,142,147,57,243 

162,57,134,220,162,59,134,222,108,76,3,162,0,134,226,162,229 

0,134,224,162,39,134,225,162,60,160,72,140,23,57,142,160,102 

57,140,147,57,162,56,134,220,162,58,134,222,108,76,3,162,106 

39,134,226,162,39,134,224,162,0,134,225,162,60,160,72,140,25 

23,57,142,160,57,140,147,57,162,56,134,220,162,57,134,222,138 

108,76,3, 162,39, 134,226, 162,79, 134,224, 162,0, 134,225, 162,238 

60,160,72, 142,23,57, 142, 160,57, 142, 147,57, 162,58, 134,220, 1 

162,59,134,222,108,76,3,173,1,255,41,3,170,224,0,208,47 

2,160,1,224,1,208,2,160,0,224,2,208,2,160,3,224,45 

3,208,2,160,2,204,78,3,208,2,152,170,142,78,3,224,103 

0,208,3,76, 167,57,224, 1 ,208,3,76,203,57,224,2,208, 181 

3,76,239,57,224,3,208,3,76,19,58,96,169,137,133,231,196 

169,58,133,232,165,229,76,150,58,165,212,133,231,165,213,133,218 

232,165,230,76,150,58,201,32,208,3,108,231,0,201,96,208,151 

3,108,231,0,201,69,208,3,76,46,59,201,70,208,3,76,26 

46, 59, 201, 71, 20B, 3, 76, 46, 59, 201, 72, 208, 3, 76, 46, 59, 154 

201, 73, 20B, 3, 76, 52, 59, 201, 79, 20B, 3, 76, 81, 59, 201, 77, 121 

208,3,76,117,61,201,78,208,3,76,75,59,76,138,61,32,192 

1 1 1 ,61 ,234,96,201 ,65,208,3,76, 1 18,60,201 ,66,208,3,76,251 

118,60,201,67,208,3,76,118,60,201,68,208,3,76,118,60,109 

201 ,78,208,3, 108,231 ,0,201 ,79,208,3, 108,231 ,0,234, 76, 177 

87,59,234,234, 169,231 , 133,231 , 169,60, 133,232, 165,229,76,228, 1 10 

58,165,214,133,231,165,215,133,232,165,230,76,228,58,169,1,169 

141, 79, 3, 96, 238, 80, 3, 165, 231, 201, 137, 20B, 7, 169, 32, 133, 131 

229, 108,231 ,0, 169,32, 133,230, 108,231 ,0,23B, 81 ,3,76,55, 132 

59,238,82,3,76,55,59,168,201,73,208,3,108,231,0,201,229 

32, 208, 3, lOB, 231, 0,76, 66, 60, 234, 234, 234, 0,174, 96, 3, 223 

202,202,32,181,60,202,202,202,160,0,136,200,232,232,232,232,147 

32,220,62,232,189,0,63,153,52,3,189,64,63,153,72,3,14 

189,128,63,153,56,3,189,192,63,153,64,3,192,3,208,219,86 

174,96,3,189,64,55,133,210,189,80,55,133,211,189,96,55,140 

141,78,3,169,59,141,77,3,169,192,141,76,3,76,55,58,161 

32,139,57,169,59,133,215,169,209,133,214,76,235,59,76,20,203 

59,32,216,56,32,14,57,76,241,59,174,96,3,232,228,216,255 

240,6,142,96,3,76,109,59,76,58,60,32,206,59,76,136,154 

60,174,96,3,202,202,202,202,32,208,62,202,160,0,136,200,93 

32,220,62,232,232,232,232,232,185,52,3,157,0,63,185,56,127 

3,157,128,63,185,64,3,157,192,63,185,72,3,157,64,63,23 

192,3,208,219,174,96,3,165,210,157,64,55,165,211,157,80,111 



Computronic 






v«y 



193 DATA 55,173,78,3,157,96,55,96,234,234,162,0,142,96,3,96,144 

194 DATA 20, 61, 201, 96, 208,3,108,231, 0,201, 69, 208, 3, 76, 96, 60, 105 

195 DATA 201,70,240,249,201,71,240,245,201,72,240,241,32,130,60,96,29 

196 DATA 173,1,255,41,3,174,96,3,157,96,55,32,157,60,96,0,119 

197 DATA 206,96,3,76,130,60,169,2,141,79,3,96,0,0,0,206,243 

198 DATA 96,3,162,0,142,97,3,96,174,97,3,224,1,240,3,76,137 

199 DATA 218,59,32,160,60,169,0,141,97,3,76,194,60,76,130,60,255 

200 DATA 173,78,3,174,96,3,157,144,63,96,160,0,140,97,3,140,247 

201 DATA 96, 3, 76, 206, 60, 32, 208, 62, 172, 96, 3, IBS, 96, 55, 141, 98, 53 

202 DATA 3,96,172,96,3,173,98,3,153,96,55,76,109,59,140,99,151 

203 DATA 3,76,109,59,174,99,3,224,1,240,11,162,1,142,99,3,126 

204 DATA 174, 96, 3, 76, 99, 60, 96, 160,0,140, 99, 3, 76, 33, 59, 162, 56 

205 DATA 248,162,254,160,60,142,76,3,140,77,3,76,0,56,32,139,92 

206 DATA 57,162,13,160,61 ,134,212,132,213,76,124,58,234,32,216,56,148 

207 DATA 32,14,57,96,234,234,234,162,255,232,189,112,55,157,52,3,70 

208 DATA 189,116,55,157,72,3,189,120,55,157,56,3,189,124,55,157,161 

209 DATA 64,3,224,3,208,227,173,128,55, 133,210,173,129,55,133,211,81 

210 DATA 162,0,32,241,60,162,255,232,189,52,3,157,112,55,189,56,165 

211 DATA 3,157,120,55,189,64,3,157,124,55,189,72,3,157,116,55,239 

212 DATA 224,3,208,227,165,210,141,128,55,165,211,141,129,55,96,162,16 

213 DATA 1,142,85,3,96,32,216,56,162,223,160,14,142,128,55,134, 113 

214 DATA 210,140,129,55,132,211,234,234,234,96,201,74,240,3,76,223,188 

215 DATA 58,108,231,0,169,7,141,11,54,169,160,141,19,54,169,6,217 

216 DATA 141,30,54,169,30,141 ,31,54,169,120,141 ,38,54,169,0,141,202 

217 DATA 39,54,169,55,141,43,54,169,51,141,44,54,169,63,141,45,152 

218 DATA 54,169,224,141,51,54,169,192,141,52,54,169,255,141,53,54,181 

219 DATA 169,30,141,62,54,169,0,141,63,54,169,96,141,70,54,169,46 

220 DATA 120, 141 ,71 ,54, 169 ,54, 141 ,27,54, 169,224, 141 , 35,54 ,234,234, 130 

221 DATA 234, 234, 234, 234, 234, 234, 169, 126, 141, 83, 54, 141, S4, 54, 169, 129, 250 

222 DATA 141,112,54,169,66,141,113,54,169,66,141,118,54,169,129,141,45 

223 DATA 119,54,96,169,5,141,11,54,169,224,141,19,54,169,30,141,60 

224 DATA 30,54,169,0,141,31,54,169,96,141,38,54,169,120,141,39,166 

225 DATA 54,169,7,141,43,54,169,3,141,44,54,169,255,141,45,54,7 

226 DATA 169,236,141,51,54,169,204,141,52,54,169,252,141 ,53,54,169,61 

227 DATA 6,141,62,54,169,30,141,63,54,169,120,141,70,54,169,0,163 

228 DATA 141 , 71 ,54, 169,6, 141 ,27,54, 169,236, 141,35,54,234,234,234,208 

229 DATA 234,234, 234 ,234,234, 169, 102, 141 ,83,54, 141 , 84 ,54, 169,0, 141 ,4 

230 DATA 112,54,169,0,141,113,54,169,0,141,118,54,169,0,141,119,18 

231 DATA 54,96,165,217,201,0,208,1,96,32,216,56,198,217,96,162,223 

232 DATA 0,134,218,230,218,165,218,197,219,240,6,32,170,60,76,163,42 

233 DATA 62,32,20,61,32,232,62,96,169,0,234,234,234,141,80,3,156 

234 DATA 141,81,3,141,82,3,141,83,3,141,85,3,141,84,3,96,207 

235 DATA 202 , 202 , 202 , 202 , 202 , 202 , 202 , 202 , 202 , 202 , 202 , 96 , 232 , 232 , 232 , 232 , 1 74 

236 DATA 232,232,232,232,232,232,232,96,166,228,232,138,41,15,170,224,118 

237 DATA 14 , 208 ,3, 162,0, 138, 188, 130,55, 140, 200, 15, 133 ,228,96, 31 ,205 

238 A=(I-14336)/16sPRINT"?DATA ERROR IN";A+126; 

239 END 

240 PRINT"UDAS PROGRAMM ZERSTGERT SICH VON SELBST^" 

241 FRINT"BEI FEHLERFREIEM DURCHLAUF. TIPPEN SIESI?" 

242 PRINT"PROBRAMMTEIL 2 EIN. WENN SIE DIESE6&". 

243 PR INT "PROBRAMM NACH DEM ZERSTOEREN AB ' SAVE 'NßS" 

244 PR INT "WOLLEN, 6EBEN SIE [5PI0NIT0RS EIN. DANACH^" 

245 PR INT "TIPPEN SIE SS "+CHR* <34) +" ZS,MC"+CHR* (34) +*' , 1 ,3400, 3F00^ EIN.ffl" 

246 PRINT"ZUM LADEN ^äMONITORS täLM EINGEBENft&M" 

247 NEW 
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(Vi 



qgfi 



IIB 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 




RESTORE iFORI=l 33 12T01 4 103STEP12: SU»0 

F0RJ=GT011 

READZ : SU=SU+Z AND255 

POKEI+J,Z 

NEXTJ 

READSi IFSOSUTHEN126 

NEXTI 

GOTO 128 

A»U-13312)/12:PRINT"?DATA ERROR IN"jA+135 S 
END 

PR I NT "W) AS PROGRAMM ZERSTOERT SICH VON SELBST^" 

PR INT "BEI FEHLERFREIEM DURCHLAUF. TIPPEN SIE®" 

PR INT "PROGRAMMTEIL 3 EIN. WENN SIE DIESES^" 

PR INT "PROGRAMM NACH DEM ZERSTOEREN AB'SAVE'N&T 

PR INT "WOLLEN, GEBEN SIE O1DNIT0RH EIN. DANACH®" 

PRINT"TIPPEN SIE HB "+CHR* <34)+"ZS,MC"+CHR*<34)+" , 1 ,3400,3F00Ü EIN, 

PR INT "ZUM LADEN [^MONITORS &_■ EINGEBENI^" s NEW 

DATA O, 0,0, 0,0, 0,0, 0,0, 0,126, 102, 228sREM "S/A" 

DATA 126, 102, 102, 0,0, 0,126, 102, 126, 102, 126, 0,144:REM "A/B" 

DATA 0,0, 126, 96, 96, 96, 126, O, 0,0, 124, 102, 254aREM "C/D" 

DATA 102, 102, 126,0,0,0, 126,96, 120,96, 126,0, 126iREM "D/E" 

DATA O, 0,126, 96, 120, 96,96, 0,0,0, 126, 96, 244IREM "F/S" 

DATA HO, 102, 126,0,0,0, 102, 102, 126, 102, 102,0, 104=REM "G/H" 

DATA 0,0, 24, 24, 24, 24, 24, 0,0, 0,24, 24, 168aREM "I/J" 

DATA 24,24,12O,0,O,0,102,108,120,10B,102,0,196iREM "J/K" 

DATA 0,0, 96, 96, 96, 96, 126, 0,0, 0,102, 126, 226aREM "L/M" 

DATA 102, 102, 102, 0,0, 0,102, 118, 110, 102, 1O2,0,72sREM "M/N" 

DATA 0,0, 126,102, 102, 102, 126,0,0,0, 126, 102, ISiREM "O/P" 

DATA 126, 96, 96, 0,0, 0,126, 102, 102, 110, 127, 0,117tREM "P/CT 

DATA 0,0, 126, 102, 126, 108, 102, 0,0, 0,126, 96, ISbREM "R/S" 

DATA 126,6,126,0,0,0,126,24,24,24,24,0,224sREM "S/T" 

DATA 0,0, 102, 102, 102, 102, 126,0,0,0, 102, 102, 226iREM "U/V" 

DATA 102, 60, 24, 0,0, 0,102, 102, 102, 126, 102, 0,2OBiREM ,, V/W" 

DATA 0,0, 102, 60,24,60, 102, 0,0, 0,102, 102, 40sREM "X/Y" 

DATA 62,6,126,0,0,0,126,12,24,48,126,0,18iREM "Y/Z" 

DATA 0,0, 60, 48, 48, 48, 60, 0,40, 68, 154, 178, 192rREM "C/\" 

DATA 154,68,40,0,0,0,60,12,12,12,60,0,162iREM "\/2" 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,OiREM " A /_" 

DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, OeREM " / " 

DATA 0,0,24,24,24,0,24,0,0,0,24,24,144:REM »!/"" 

DATA 0,0,0,0, 102,0, 126, 102,126, 102, 102,0, 148:REM '*"/#" 

DATA 102, 0,126, 102, 102, 102, 126, 0,102, 0,102, 102, 198iREM "*/%" 

DATA 102,102,126,0,0,0,60,102,60,102,62,0,204:REM "5i/&" 

DATA 0,0,0,0,0,0,0,0,0,0,12,24,36:REM "'/<" 

DATA 24,24,12,0,0,0,4S,24,24,24,4B,0,228iREM " (/) " 

DATA 0,102,60,255,60,102,0,0,0,0,0,0,67iREM "*/+" 

DATA 0,0,0,0,0,0,0,0,0,0,24,48,72sREM "+/," 

DATA 0,255,0,0,0,0,0,0,0,0,0,0,255sREM "-/.'■ 

DATA 0,0,24,0,0,0,6,12,24,4S,96,0,210iREM ".//" 

DATA 0,0, 126, 102, 102, 102, 126,0,0,0,56,24, 126s REM 

DATA 24,24,24,0,0,0,126,6,126,96,126,0,40iREM "1/2" 

DATA 0,0, 126, 6, 30, 6, 126, 0,0, 0,96, 102, 236sREM "3/4" 

DATA 126,6,6,0,0,0, 126,96, 126,6,126,0, 106sREM "4/5" 

DATA 0,0, 126, 96, 126, 102, 126, 0,0,0, 126,6, 196sREM "6/7" 

DATA 30,6,6,0,0,0,126,102,126,102,126,0,112sREM "7/8* 

DATA 0,0, 126, 102, 126, 6, 126, 0,0, 0,0, 24, 254BREM "9/s » 

DATA 0,24,0,0,0,0,0,0,0,0,0,0,24:REM "is" 

DATA 0,0,30,62,126,62,30,0,O f O,0,0,54:REM "</»" 
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176 


DATA 


177 


DATA 


178 


DATA 


179 


DATA 


180 


DATA 


181 


DATA 


182 


DATA 


183 


DATA 


184 


DATA 


185 


DATA 


186 


DATA 


187 


DATA 


188 


DATA 


189 


DATA 


190 


DATA 


191 


DATA 


192 


DATA 


193 


DATA 


194 


DATA 


195 


DATA 


196 


DATA 


197 


DATA 


19B 


DATA 


199 


DATA 




200 


DATA 



s**" 



0,0,0,0,0,0, 120, 124, 126, 124, 120,0, 102t REM "=/>" 
0,0,60, 12,24,0,24,0,0,0, 124, 96, B4sREM "?/-" 
102, 96, 124, 0,7, 3, 3, 7, 15, 7, 1,15, 124b REM "~/#" 
0,128, 192, 160, 240, 224, 128, 240, 27, 51, 51, 54, 215jREM " [ /-■■■ 
6, 6, 6, 30,216, 204, 204, 224, 96, 96, 120,0, 184sREM •'-/-» 
3,7,5,55,51,63,7, 15, 192, 224, 160, 224, 23S:REM «-/_■■ 
192,255, 224, 240, 31, 31, 31, 15, 6, 6, 30, 0,37:REM "_/| " 
248,248,24B,24O,96,96,96,120,O,0,0,24,136:REM "1/," 
24,0,0,0,0,126,126,126,126,126,126,0,12:REM ",/ -" 
0,0,0,0,0,0,0,0,0,126,126,126,122sREM "*/L" 
126,126,126,0,0,0,0,0,0,0,0,0,122sREM "L/\" 
129, 66, 24, 60, 60, 24, 66, 129, 12, 24, 60, 126, 12:REM "//r" 
126, 126, 60, 0,126, 96, 96, 96, 96, 96, 126, 0,20: REM "r/H" 
126, 102, 102, 126, 102, 102,102, 0,126, 96, 96, 126, 182aREM N »A 
6,6,126,0,126,24,24,24,24,24,24,0,152:REM »_/♦" 
96,96,96,96,96,96, 126,0, 126,96,96, 126, 122sREM H ! / ,-" 
96, 96, 126, 0,102, 102, 102, 126, 102, 102 ,102, 0,32s REM " -/:<" 
126, 102, 102, 102, 102, 102, 126,0, 126, 102, 102, 126, 194i REM "■ 
108, 108, 102, 0,126, 102, 102, 126, 108, 108, 102, 0,68sREM "*>/ ! 
126, 102, 102, 102, 102, 102, 126, 0,255,0, 255, 0,24S!REM "♦/+" 
255, 0,255, 0,0, 255, 0,255, 0,255,0, 255, 250:REM "4/si " 
255, 0,63, 0,15, 0,3, 0,255,0, 252, 0,75:REM " | / -*" 
240, 0,192, 0,1, 0,7, 0,31,0, 127, 0,86sREM B WT' 
0, 0,0, 0,0, 0,0, 0,128,0, 224, 0,96sREM " /l " 
248, 0,254, 0,0, 0,0,0,0,0,0,0,246: REM "I /«" 
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120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 



Vtf || 



MIJÜMi F 



i l I I i i i M 



4 

-+ m// 

4 H/ 

4 a// 

4 SS 

4 &// 

4 



II V 



4 



IFPEEM 16127) =»31THEN122 

CLR : P0KE55 , : PÜKE56 , 52 s CLR : 80BUB376 

P0KE65299 , PEEK ( 65299 ) AND3DR52 : VOL8 

P0KE65298 , PEEK < 6529B ) AND25 1 : CGL0R4 , 1 : COLORO , 1 : D I MHS* < 6 ) , HS < 6 ) , LE < 6 ) 

F0RI-1T05: HS* < I > ="RSfR" s HS ( I ) =0i LE < I ) -1 : NEXT: G0SUB221 : GQSUB126 

Pa ! 0sL=55SDTD227 

PRINT"ts^LJiiig^ 

PRINT"Ü 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 



SU- 

öÄ4 

M4 



m/ 
m/ 



Ü4- 
JS4 
^4 
?§4 

su- 



H^FRESENTS: Sßgl- 



4 



4 

4 
4- 



m — 



OF Xo* (♦ 



m 4 



ii 



&BY ggCHR HRASKOB 

V 

I Vif 

ii hjj_ m v 

ti s a i i iv 
ii v* 

i 1 1 1 i 1 1 1 1 u 



MV* 



'(Mdifv) fdoyi utsp fiw npis ipn ./(// 

;uauqj 
^qoiuipoM 
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c^ 



149 
150 
151 
152 
153 
154 
155 

157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 

186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
20O 
201 
202 
203 
204 
205 
206 



PRINT" 

CHARl,ll,24,"ß\ 10/1985 BY R & R8" sS0BUB326s RETURN 

PRINT H g£U5 LLU_ LLLL"i SYS 15764 

PR I NT " SLLLHV H I I M I I I I- M I 1 M I II I I I I B V @LLL_ 



PR I NT " ES k-.. -, ^ -> ■> H '-k-, ^ > - -, -, -, -, gf_L 

PR I NT " gLk-, -, - -. -. Ä '"k-, - -, -^ -, -^ -, -v ELL 

PR I NT " ELk-, -, ELki -, SLk- ; -, HJJLLk- 

PRINT"BLk-^BLk^ 

PRINT"^Lk-, 

PRINT"S_k-, 

PRINT"f3Lk-, 

PRINT "ELk-. 

PRINT"^k-, 

PR INT" ELk- 

FR INT" ELk- 

PRINT "ISLA*.-, 

PRINT "ELk-, 

PRINT "ELk-, 

PRINT "ELk-, 

PRINT "ELk-, 

FRINT"BLk^ 

FRINT"E3 k-. 

PR INT" ELk-, 

PRINT "ELk, 






■i ■[ \ 1 T \ i 



'■-k-v 



,SL 



, ELk-,-, ELk-, -,2Lk -,-,-, ■ 

-, m ■■■k-, -, -, -,-, H_k-^ -, ps i 

"i ^3 "k -*- "i ~> "> i w,„fc"> "■■ ss "k 

■s HLLLLk-. -> M 4t-, -. ji ^k 

-.-.-ir'SL-k-^Ji'-k 

"'I "% "^ "> KJ-r-Pfc . ' 

-, ELk-, -, - - 



k-, -, t ii i 1 1 ,-, -, ELk-, -, SLk-, -, el 

"1 "'S --1 "'s "'s "'S "l ~1 aA"l ~, GLk~'i *"l Si k"-l "1 S 

"•■ "'t "i *i ~, '\ 's "i K3 k-, -, £H — fc."i *■■[ Ga — *.-». -*. ES — 

k> -, SJik-, - SLk-, -, -i -s -. M '--k-, -, GL 

-, -, -, -, -, m ; -k-, - s_k-, -, -, -, -, m --k-, -, sl 
-, -, -^ -, ü L -k-, -, ü '-k-,^ s i i i k ^a_ 



"l GS k"l _ , EsS k"l ' 

—, Es! 9l~^ "'s EaS nt", ' 



; "1 Ei k"i *-i Sä k"-. "'s frSLk"-. ~, "i " 



,ta 



,sj 



k-, -, ^ - ; K3 a/'k-, BLk^ ■-, BLLk-, -, BLk-, a/EBLk^ -, -, -, g/B k^ -, EL 

Lk-, -, a„k-^ -, S_k-, -, ^ I k-. -, ELk^ --, SLk^ -, ELLLLk-^ -s EL 

„ _ _ „ m 

""! "-r "': ~i ~"! ""'i ~H ~'t ~"i ""'. ~^ T _n : ""'s ~'t "": "l "^ "^l "^ "": " % r ^ ""E ""[ K£J 

-. WIN UJi >- --SS-k- -, EL« l - '-E LLUJJ k ,-, -, ELk-, -, SL 

3/ k~> ~: "l ~1 "1 ~\ "■[ ~\ -'i SS k EH k">. _ -| ~: _ 'r "'S ~^ ~\ ~\ ~^ fcS.*'' GL»"1 "1 SS 



J_LU_k^ ■ 



St3,„ k."> "^ -■> ; 

™ k"'. "■; W k~-i ' 



,8L 



ELk--, - 

SLk- 
i M I 1 



-.ELk 

LLJSV ELLL 
LLLLS" 



"•; ~\ ~i Q k'^ "'s 13_ 

i I 1 La. _ \ "i B5,...,k "\ ~"t ra 

£1 k-,-^-,-,BL 

WR k „ _ _ wtm 

SSLJfc- *. 1 ': - 



Tjeöt« 



ist« 



scroti 



c*#»* 



cbs*^ 



■"■L SSL. Jk "% "% *"\ ~t ~T 

- fiLk-^ -, SLL 

"s ""i -^ _i i ES ä. 

PR I NT " ELBTk-% - ~, -, SLk 

PR I NT " ELLUESN-' !^_L_ 

PRINT"SI i I i i 

RETURN 

DATAO ,0,0,0,0,0,0,0 

DATA16,2,0,3,0,3,0,3 

DATAO ,0,0,0,0,0,0,0 

DATA-1 

DATAO ,0,0,0,0,0,0,0 

DATAO, 0,0, 0,0, 0,0,0 

DATAO, 0,0, 0,0, 0,0,0 

DATAO, 0,0, 0,0, 0,0,0 

DATAO, 0,0, 0,0, 0,0,0 

DATAO, 0,0, 0,0, 0,0,0 

DATA-1 

DATA69, 69, 69, 69, 69 ,69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69 

DATA70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70 

DATA71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71 

DATA72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72 

DATA1 19, 103, 87, 71, 117, 101 ,85, 69, 118, 102, 86, 70, 116, 100, 84, 68 

DATAU9, 103, B7, 71, 117, 101,85,69, 118, 102, 86, 70, 116, 100, 84, 68 

DATA1 19, 103, 87, 71, 11 7, 101, 85, 69, 118, 102, 86, 70, 116, 100, 84, 68 

DATA1 19, 103, 87, 71, 117, 101, 85, 69, 118, 102, 86, 70, 116, 100, 84, 68 

DATA73, 73, 73, 73, 73,73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73 

00X073,73,73,73,73,73,73,73,73,73,73,73^73,73,73,73 

DATA73, 73, 73, 73, 73, 73, 73, 73, 73, 73 ,73, 73, 73, 73, 73, 73 

DATA73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73 

DATA99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99 

DATA99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99 

DATA99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99 

DATA99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,99,99,99,^1 

DATA39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39 

DATA13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13 

DATAO, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 



m*^ 



Com put ro n i c 



ÜÜ 



207 DATA65,66,67,6S, 121 , 121 , 121 , 121 
20S DATA32,32,32,32,32,32,32,32 

209 DATA223, 14, 5, 24, 20, 18,1,32,19,16,5, 

210 DATA-1 

211 RESTORE 1 68s A«20S 

212 READ2sIFZ<>-iTHENPDKEA,ZsELSE214 

213 A=A+liB0T0212 

214 A=819 

215 READZ a I FZO- 1 THENPOKEA , Z t ELSE2 1 7 

216 A»A+lsG0T0215 

217 A» 16128: REBTORE 188 

218 READZ» IFZO-lTHENPDKEA,ZsELSE220 

219 A«A+l!GÖTQ21B 

220 B0T0384 

22 1 P0KE65286 , PEEK ( 65286 ) AND239 



3,9,1,12,32,32,32,32 

222 RETURIM 

223 P0KE652S6, PEEK (65286) OR 16 

224 RETURN 

225 P0KE239 , 8 WA I T239 , 1 1 PGKE239 , 

226 RETURN 

227 s 

228 S0SUB22 1 1 G0BUB2 1 1 : S0BUB3 1 1 1 
G0SUB22 1 « GOBUB 151 

229 G0SUB2233G0SUB225 

230 E1*«"EXTRA SPECIAL 

231 E2*=" 

232 H=PEEK(217) 



233 EX=l:SPX<0)=15S9iiSFXU) =15764 

234 M=l i MC» liSY« 16031 

235 CHARl,33,6,"aVAMP. ,, :PQKE217,PEEK(217>+3AND255 

236 CHAR 1,33, 9, "HENRYS" 

237 CHARi,33,12,' , HELPS ,, *CHARi,33,15,"HIGH"sCHARl,32,16,LEFT*<STR*<HSa>) ,7) + "fcj" 

238 CHAR1,32,10,STR*(L)+" " : IFFL=»-lTHENM*10s ML-10 

239 CHAR1, 32,7, STR* <PEEK<216> )+" " 

240 CHAR1,32,13,STR*<H>+" " 

241 CHAR1 ,9,0,"SC0RE"+STR*<P) i CHARi ,33,21 , ,,- |»_*l ,-" = CHAR1 ,33,22, "OF" : CHAR1 , 33,23, 
"XO* [++>" 

242 CHARl,B,24,'»läEÜ! "+E2*: FL=0: CHARi ,33, 18, "\ 1985" : CHAR1 ,33, 19^'BY R&R":B=0 

243 B0T0247 

244 CHAR1, 10,1 2, "im SAME OVER «" :FORI = 1T01QOO: NEXTI 

245 CHAR1,32,10," " 

246 S0BUB225sB0T0273 
SYS 16056 

SYBSY« IFPEEK (853) < >OORPEEK (847) »1THENSYS 16056 

P=P+PEEK (848 ) *M b G=G+PEEK ( 848 ) s I FPEEK ( 848 ) >0THENS0UND3 , 300 , 1 : S0UND3 ,0,0 
I FPEEK ( 849 ) >OTHENP=P+PEEK ( B49 ) #M*50 : G=G+PEEK < B49 ) s SOUND 1 , 900 , 5 i G0SUB388 
I FPEEK ( 850 ) >OTHENP=P+PEEK < 850 ) *M* 1 00 s G=G+PEEK < 850 ) : SOUND 1 , 200 , 5 s G0SUB258 
CHAR1,32,13,STR*<PEEK<217) )+" " 
I FPEEK ( 847 ) < >0THEN266 
PR I NT " ^mmmmmmmmmmmmmmi ■■ p 



247 
24S 

249 

251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 



IFG>=454THEN269 

S»S+ 1 AND 1 : S YSSP"/. ( S ) 

G0T0247 

EX=FEEK(22S)+isMID*(E2*,INT<EX+.5> , 1 ) «MID* (El*, INT (EX+. 5) ,1) ! CHAR1 , 10,24, E2* 

IFLEFT* <E2*,5) -" EXTRA" THENL=L+1 s CHARi ,32, 10, STR* (L) +" " : G0T0262 

IFMID*<E2*,7,7)»"SFECIAL"THEN264 

RETURN 

262 MID*(E2*,1,5)=" " s G=500 

263 GQTG260 

264 MID*<E2*,7,7)-" •• s P**P+ INT (RND < 1 ) *6+15> *1000 

265 B0T0309 

266 L-L- 1 s I FL< >0THENP0KE847 , O : FOR I - i TD 1 000 1 NEXT s P0KE2 1 7 , PEEK ( 2 1 7 ) + 1 AND255 1 ELSE24 
4 

267 SYSI601Bs CHARI, 32, 10,STRS(D+" " : P0KE239,0s WAIT239, 1 s P0KE239,0 

268 G0T0254 

269 IFPEEK (216X 16THENP0KE216, PEEK <216)+1 

270 GGSUB22l!G0BUB151:GDSUB217 

271 G0SUB223:G0SUB225 

272 GOT0232 



Computronic 



&Am 



273 
274 
275 
276 
277 
278 
279 
2B0 
281 
2B2 
283 
284 
285 
2B6 
287 
2B8 
2B9 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 

327 
328 
329 
330 



331 DATAI, 770, 2, 2 

332 DATAI, 770, 2, 2 

333 DATAI, 770, 2, 2 

334 DATAI, 770, 4, 2 

335 DATA!, 785 ,2, 2 

336 DATAI, 770, 4, 2 

337 DATAI, 739, 2, 2 

338 DATAI, 704, 2, 2 

339 DA TAI, 739- 2,2 

340 DATAI ^ 739^2, 2 

341 DATA1,739,2,2 

342 DATAI, 739, 4, 2 

343 DATA1,770,2,2 

344 DATA1,739,4,2 

345 DATAI, 704, 2, 2 

346 DATA!, 685, 2, 2 



FOR I » 1 TOS : I FP >HS ( I ) THENGQSUB300 1 GQTQ275 

NEXT*G0T0293 

FOR J-5T0I STEP- 1 s HB ( J+l )=H5 < J) 

H5*(J+1)=HS*(J> :LE(J+1)=LE(J) 

NEXTJs A*=" " s F0RD-1TQ3: CHAR1 , 10+D,9, "A" : B=65 

A=J0Y<1) 

IFA*1THENA»1 1 G0TO283 

IFA«5THENA*-1 1 G0T0283 

IFA»128THEN290 

G0T027S 

B=*B+A: IFB=64THENB=32 

IFB=34TH£NB=90 

IFB=31THENB=37 

IFB=*33THENB»65 

I FB»3BTHENB=32 1 ELBE I FB=9 1 THENB=35 

CHAR1 , 10+D,9,CHR* (B) s FORJ-iTOlOOi NEXT 

G0TÜ278 

A*==A*+CHR*(B)sB-65!lFD<>3THENCHARl,10+D+l,9, ,, A ,, iF0RJ=lT050sNEXT 

NEXTD 

HS* ( I ) «A*s HS ( I ) =Ps LE ( I ) «PEEK (216) +PEEK (219) -3: G0T0293 

G0SUB306 

CHAR1,10,6," INI SCORE LE" 

FOR 1*1 TOS 

CHAR1 ,9, 1+8, STR* (I > +" "+HS* ( I ) ! CHAR1 , 15, I+B,STR* (HS ( I ) ) 

CHARi,22,I+B,STR*(LEm> 

NEXTsCHARl,10,15,"Y0UR SCORE s "+STR* (P) : G0SUB223s G05UB326 

GOTO 125 

PRINT"^^" 

CHAR1,11,3,"GIVE IN YOUR" 

CHAR1,11,4," INITIALS 

CHAR1 , 1 1 ,6, "CONGRATULATION" 

CHAR1 , 15, 9, STR* (P) 

RETURN 

PR I NT " agLi" : G0SUB22 1 

CHAR1,10,3,"- --, TOPFIVE 

RETURN 

FL— lsG*500 

RETURN 




PRINT"!g" 

PRINT"^ä^" s G0SUB221 

B»1:CHAR1,3,1,"NUMBER OF VAMP I RES" 

CHARI,5,6,"lßffiI2gai35S|4äSH58S16" 

CHAR1,3,6,"> m <":GOSUB223 

A» JQY < 1) i I FPEEK ( 1 347 > »7ANDPEEK < 2038) =0THEN389 

I FA» 1 THENA«- 1 i G0T0322 

IFA»5THENA=1 i G0T0322 

IFA=12BTHENPOKE216,BsFORI=iT0100: NEXT: RETURN 

G0T0317 

B«=B+A : I FB=0THENB= 1 : G0T03 1 7 

I FB=7THENB»6 : G0T03 1 7 

F0RI=1T0SjCHAR1,3,5+I," £g " : NEXT 

CHAR1,3,5+B,"> SS <"sG0T0317 

REBT0RE331 s G0SUB223s P0KE239 , O 

READX, Y, Zi IFX»-1THENS0UND2,0, 1 : REST0RE331 a RETURN 

SOUND X ,0,1s SOUNDX, Y, Z*5( I FX=* 1 THENSYS 15891 s ELSESYS 15764 

I FPEEK (239 )< >0ANDX=1THENS0UND1 ,0, 0: SQUND2 ,0 ,0i RETURN 

G0T0327 



347 DATA1 

348 DATA1 

349 DATA1 

350 DATA1 

351 DATA1 

352 DATA1 

353 DATA1 

354 DATAI 

355 DATAI 

356 DATAI 

357 DATAI 

358 DATAI 

359 DATAI 

360 DATAI 

361 DATAI 

362 DATAI 

363 DATA! 

364 DATAI 

365 DATAI 

366 DATAI 

367 DATAI 

368 DATAI 

369 DATAI 

370 DATAI 

371 DATAI 

372 DATAI 

373 DATAI 



,704 


,2 


,2, 


,704 


,2 


,2, 


,704 


|2 


,2, 


,704 


,4 


i2, 


,739 


,2 


,2, 


,704 


.4 


»2, 


,685 


.2 


»2, 


,643 


,2 


»2, 


,685, 


,4 


p2, 


,685 


,4 


|2, 


,685, 


p 8. 


,2, 


,798 


»2 


,2, 


,79B, 


»2, 


,2, 


,798, 


,2, 


»2, 


,798, 


«4, 


»2, 


,B10. 


,2. 


>2, 


,798, 


,2. 


,2, 


,770, 


,2, 


>2, 


,739, 


4, 


,2, 


,704, 


-2. 


,2, 


,704, 


2, 


>2, 


,704, 


,2, 


,2, 


,704, 


4, 


2, 


,739, 


2. 


.2, 


,704, 


2, 


2, 


,685, 


2, 


-2, 


»643, 


4, 


2, 



770,2 
770,2 
770,2 
770,4 
785,2 
770,4 
739,2 
704,2 
739,4 
810,4 

834,2 
834,2 
834,2 
834,4 
854,2 
834,2 
810,2 
798,4 
770,2 
770,2 
770,2 
770,4 
798,2 
770,2 
739,2 
704,4 



34 



Computronie 



qglß 



374 DATA1,596,8,2,685,8 

375 DATA-1, -1,-1, -1,0,0 

376 REST0RE3S0 

377 1=16288 

378 READA* s I FA*= •• * " THENS YS 1 62SS : RETURN 

379 FOKEI, DEC <A*) i 1*1+1 s GDT0378 
3B0 DATAA9,01 , A2,01 , A0,01 ,20,BA,FF 
3B1 DATAA9,05,A2,BC,A0,3F,20,BD,FF 
3B2 DATAA9 , 00 , A2 , 00 , AO , 34 , 20 , D5 , FF 
383 DATA60,5A,53,2C,4D,43,* 

3B4 A=14144 

3B5 READZ: IFZO-1THENF0KEA, Z i ELSE387 


386 A=A+1:G0T0385 
3B7 RETURN 

388 ML=ML+. 5s M=INT (ML) s RETURN 

389 PRINT"^" 

390 CHAR1,12,3,"CUBIK, ANYONE ?" 

39 1 DOUNT I L JO Y ( 1 ) = 1 28 s LOOP 

392 CHARl,i2,7,"-" 

393 GET A* s A=ASC CA*) -48 : I FA< OORA > 1 THEN393 

394 CHARl,12,6,A*s0NA+lG0T0395,39B 

395 CHARl,12 f 7," -" 




396 BETA* i A= ASC < A* ) -48:. I F A< 1 ORA >9THEN396 s ELSECHAR 1 , 1 3 , 6 , A* 

397 P0KE216,A:G0T0221 
39B CHAR1,12,7," -» 

399 GET A* : A=ABC t A* ) -48 ! I F A< OORA >6THEN399 : ELSECHAR 1 , 1 3 , 6 , A* 

400 PÖKE216,A+10:G0T0221 









Mit dem C-16-Computer auf ins „Fantasy^Country" 



Hier sind wieder kurze Reaktionszeiten und ausgeprägte Beweglichkeit gefordert! Auf Ihrem 
Bildschirm „wimmelt" es von gewandten Feinden und heimtückischen Hindernissen. (S. G.) 

sammelt werden. 



Sie sind mit Ihrem Raumschiff im „Fanta- 
sy-Country" gelandet. Um sich hier am Le- 
ben zu erhalten, muß man die geschickt 
versteckten Sterne, die im ganzen Land 
verteilt sind, einsammeln. Die Suche nach 
den begehrten Gegenständen ist - wie 
nicht anders zu erwarten - mit manchen 
Gefabren verbunden. Auf dem gefahrvol- 



len Weg, der zum Ziel führt, muß man, sich 
nach rechts und links bewegenden Pfeilen 
und sich nach oben und unten bewegenden 
Schattenköpfen, ausweichen. Schon die er- 
ste Berührung mit einem dieser „Objekte" 
setzt Ihrem Leben ein Ende. 
Um die High-Score-Anzeige auszuführen, 
müssen so viele Sterne wie möglich einge- 



Die Steuerung erfolgt durch die Cursorta- 
sten: 

<A> = nach oben 

<Z> = nach unten 

<.> — nach rechts 

<,> = nach links 





F 


10 V0L8 
20 BI = 1 
30 FÖRT=150O4T0160O0: READA: IFA>-1THENP0KET, AsNEXT 


c 






A 


40 V=65280 

50 POKEV+lB f PEEK<V+18)AND251 

60 P0KEV+19,PEEK<V+19)AND3OR48 









N 


70 F0RT=B32T0849: READA: POKET,A: NE XT 

80 SYS832 

90 F0RT=i28OOT013OO0: READA s IFA>-1THENP0KET, A:NEXT 









T 


100 p=o 

110 G0SUB800 


H 








120 IFBI=3THENBI=1 






A 


130 SYS 1 5004 sPOKE 15000, Ol RESTÜRE 1340 


T 






140 SC=Q:0NBIBGSUB330,560 






150 SYS15019 






S 


160 IFPEEK< 15000) =1THEN2 10 


R 






170 IFPEEK< 15001 >=1THEN290 






180 READQ: IFQ>-lTHENSOUNDl ,Q, 15: ELSERESTORE1340 






V 


190 FGRT=1T0100:NEXT 


y 






20O GOTO 150 





Dieses Programm stellt selbst für die erfahrensten Spiele-Freaks eine Herausforderung dar! 



Computronic 



35 



&& 



210 RESTDREI 400 

220 READA,B: XFA>-1THENS0UND1 , A,Bs GOTO220: ELSEGOT0230 

230 CDLORO T 1 T 1 = FRINT %J»»»B»KK«raiaiq^ A M E O V E R" 

240 IFF>HITHENHI=FiFRINT"fcBBBKBSNEUER HI SCORE : " ; H I : GOTO260 

250 PRINT"fctWKEFUNKTE ";P;" HISCORE : ";HI 

26Ö P0KE239,0 

270 GETA*:IFA*=""THEN270 

280 GOTO 100 

290 P=P+l:PRINT"fl^«3PUNKTE s";P;" HISCORE : ";HI;"B H 

300 POKE 1 500 1,0: SC-SC+ 1 s I FSC= 1 OTHENB I =B I + 1 : GOT03 1 O : ELSE 1 50 

310 S0UND1 , 169, lO : SOUND 1 ,596, lOsSOUNDl , BIO, lO: S0UND1 , 169, 10 

320 GOTO 120 

330 C0L0R0,14,6:CDL0R4,1,1 

340 PRINT"U3 . B" 

350 PRINT"I3 S %L'T~m - - .BS" 

360 PRINT"t3 B ■"SPC(29) "- [3 B" :PRINT"I3 B R_B"SPC ( 15> "- | "SPC (15) "13 B" 

370 PRINT"IÖ S"5PC(3B)"13 ■" 

3SO PRINT"Üg B"SPC(38)"13 S":PRINT"13 B"SPC ( 18) "ii/1 — BTSPC<14) "BS B" 

390 PRINT"[3 ■*'SPC(22) "»"SPCdS) "13 ■ M :PRIIMT"H B"SPC ( 1 1 ) " | ' - BLfl CrB"SPC(13 

) "13 B" 

400 PRINT"1S ■ fiTB BV J B H J JJJ-'flj"SPC(13> ,, H ■" 

4io print"[js B"spc(ii)"a^ ■>* i L m- >JJJJ m"SFcaz)"tä w 

420 PRINT"[3 B -I W J m S_B Bf-'fl W J ^^-'«"BPC ( 13) "13 B" 

430 PRiNT"ta m K ~ vk-'-'m'- hsb ef-'b w jjjj m k ~ 13 B" 

440 PRINT"(3 « 13 B" 

450 PRINT"13 S ~ ~ ~~~ „___ ^r 

460 PRINT"i3 B"SPC{3B) "13 ■": PRINT"U3 ■ Ü~fl '-" SPC ( 26 ) " i 13 B" 

470 PRINT"ia S W J -'B"SPC(28)"EI/r~flrtS B" 

4BO PRINT"iS B 

490 PRINT"13 B 

500 PRINT"1S B 

510 PRINT"ia B 

520 PRINT"[3 B 

530 PRINT"[3 B 

540 PR INT "IIS B"; 

550 RETURN 

560 COLORÖ,6,5:COL0R4,l,l 

570 PR INT "LAS ■" 

580 PRINT"13 B - ~__ _ _ _ H ■■■ ' 

590 PRINT"j3 B"SPC<38)"13 B":PRINT"13 ■ _| "SPC ( 13) "^-fl"SPC < lO) " ^ 13 B" 

600 PRINT"!3 S"SPC(22) "W JJ m A I' 13 S":PRINT"13 S"SPC(22) "W JJ m 

13 B" 
610 PRINT"13 B IC/1 — H"SPC(13) "W JJ * -HB" 

620 PRINT"[3 B EP JJ fl • E9 ! WM Ci- I -^'«"SPC<9) "- t3 B" 

630 PRINT"[3 B Sf J -'B H_B '- S9 1 i 1 I !■ & -J- J fl"SPC (13) "13 B" 

640 PRINT"13 B gf-'-'fl Bf JJ « £3 I j IN W JJ M"SPC ( 13) "13 B" 

650 PRINT"I3 B B-' JJ I m jJJ m R3 Bfl L ö- J -'-'fl"SPC(13) "13 B" 

660 PRINT"(3 B Sf JJ B Bf ->^B ^ RÜ Bi \ m~ >jj m'- im 13 B" 

670 PRINT"13 ■ |3 ■*• 

6BO PRINT"13 B -"SPC(11)"_ - _ 13 ■•■ 

690 PRINT"13 B _"SPC(18)" "SPCdOV" 1 ^ 13 B" 

700 PRINT"J3 B &rfl"SPCU7) ,, _"SPC(ll) "»TB 13 B" 

710 PRINT"13 B EEr~ir5PC(27) n »^Hl3 B" : PR I NT " 13 B »"SPC (28) "W JJ Bl3 !" 

720 PRINT"13 B S3-B ~ -"SPC ( 1 1 ) " '- STB S- J -'-'»13 ■" 

730 PRINT"I3 B ß^ J -'fl HIB ^.ujjjjjjj^ K- j - jj B!3 B" 

740 PRINT"I3 B Z W JJ U Ei I M ! iB ^jjjj-'jjj b öf JJ Bl3 B" 

750 PRINT"[3 BI I H-'-'-'fl 5J i MB bjjjjjjjjj u H-'-'->fll3 S" 

760 PRINT"I3 B WLM E H^-'-'B L IB3 BB b^jjjjjjj^« BH-^-'Bia ■" 

770 PRINT"13 B CxB ^ L W JJ M- \ 103 Bfl '- ~ W JJ - ,JJJJJ m K - ^-" J Bi3 B" 
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■SPC (12) 


"1~B"SPC<16) "• 13 B" 
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R~B 13 B" 


I 


m- f - 1J m 
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An alle C-16-Programmautoren! 



Bei unserer Leserschaft 
herrscht eine riesige 
Nachfrage nach C-16-Pro- 
grammen. - Also, auf ans 
Werk und „bombardiert" 
die Redaktion mit euren 
Programmbeiträgen. 

Wir zahlen 120.- DM pro 
komplett abgedruckte Sei- 
te! Alles weitere auf S. 12. 



780 PRINT"S3ä ■' 

790 RETURN 

800 C0L0R0,6,5:C0L0R4,2,7 

810 PRINT"IAMftfcfcl»a&T I G E R - SOFT" 

820 FRINT"»»»»»»»»nreFRAESENTIERT. . . .. " 

a30 PRiNT-iiiyoüKKP hantasie - land** 

840 PRINT"1*1B8DU STEHST MIT DEINEM RAUMSCHIFF IN" 

850 PRINT"1H|EINEM PHANTASIELAND MIT VIELEN FI-" 

860 PRINT"MW3UREN - WEICHE DEN PFEILEN - UND" 

870 PRINT"feHiDEN SCHATTENKOEPFEN ■_ AUS UND HOLE" 

880 PRINT"i»KSOVIEL ALS MOEGLICH STERNE '- . " 

890 PRINT"fcfc|0BEVOR DU GETROFFEN WIRST , ODER AN" 

900 PR INT "£felJEIN HOCHHAUS KNALLST SOLLTEST DU" 

910 PRINT"fcfcWSOVIEL WIE MOEGLICH STERNE BESITZEN." 

920 PRINT"tt*|GESTEUERT WIRD ; <A> : RAUF, <Z>" 

930 PRINT"ttK : RUNTER , <-> : RECHTS UND <,> :" 

940 PRINT"HMf-INKS . VIEL SPASS" 

950 P0KE239,0 

960 GETA*sIFA*= n,, THEN960 

970 RETURN 

9SO REM ===MASCHINENCODEDATAS ===== 

990 DATA169, 25, 141, 154, 58, 133, 253, 169, 13, 141,155,58,133,254,96,160,0,169,32,145, 

253 

1000 DATA200, 145,253, 160,40,145 

1010 DATA253, 200, 145, 253, 169, 12, 133, 254, 169, 0,133, 253, 160, 40, 177, 253, 201, 71, 240, 

28,201 

1020 DATA69,240,50 

1030 DATA201, 68, 240, 61, 230, 253, 208, 2, 230,254, 165, 254, 201, 15,208, 228, 165, 253, 201, 

192 

1040 DATA208, 222, 240,59,169, 32, 145, 253, 160,0,177,253,201,32,208,6,169,71,145,253 

, 208 

10SO DATA218, 160,40,169, 70,145,253, 208, 210, 173, 0,255, 201, 16, 176,203, 160, 39, 169, 6 

8 

1060 DATA145,253,144,195,169,32, 145,253,160,39,177,253,201 ,32,208,183,169,68,145 

1070 DATA208, 177, 169,15,133,254,169,231,133,253,160,0,177,253,201,70,240,26,201, 

69 

1080 DATA240, 48, 201, 73, 240,59, 198, 253, 165, 253, 201, 255, 208, 232, 19B, 254, 165, 254, 20 

1,11 

1090 DATA208,224,240,59, 169,32, 145,253, 160,40, 169,70, 145,253, 160,80, 177,253,201 

llOO DATA32, 240, 220,160, 40, 169, 7 1,1 45, 253, 208, 212, 173, 0,255, 20 1,16, 176, 205, 160,1 

1110 DATA169, 73, 145, 253, 144, 197, 169, 32, 145, 253, 160,1,177, 253, 201, 32, 208, 185, 169 

1120 DA TA73, 145, 253, 208, 179, 173, 154, 58, 133, 253, 173, 155, 58 ,133, 254, 165, 198, 201 ,10 

,240,14 

1130 DATA201, 12, 240,21,201, 47, 240, 28 

1140 DATA201 ,44,240,34,208, 121 , 165,253,56,233,40, 133,253,144,29,176,33,165,253 

1150 DATA24,105,40, 133,253 , 176,22, 144 ,22, 198,253, 165,253,201 ,255,240,8,208, 12,23 

0,253 

1160 DATA240,6,20B 

1170 DATA6, 198,254,208,2,230,254, 165,253, 141 , 154,58,165,254,141,155,58,160,0,32 

1180 DATA240, 59, 200, 32,240,59, 160,40,32,240,59,200,32,240,59,76,7,60, 177,253,201 

,32 

1190 DATA240, 16, 234, 201,74,208, 6, 169, 1,141, 153, 58, 96, 169, 1,141, 152, 58, 96, 160, 0,1 

69 

1200 DATA64, 145, 253, 200,169, 65, 145, 253, 160,40,169, 66, 145, 253, 200,169, 67, 145, 253 

1210 DATA96, 169, 0,1 62, 0,24, 105, 1,208, 251, 232, 224, 17 ,200, 246, 240, 173,-1 

1220 REM =====ZEICHENSATZDATAS===== 

1230 DATA162,0, 189, 0,208, 157, O, 48, 189,0,209,157,0,49,202,208,241 ,96 
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1240 

1250 

1260 

60 

1270 

1280 

1290 

1300 

13 lO 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 



,240 

3 

,60,126,255,255,126, 

DATA255, 255, 60, 126,255,255, 126,60,255,255,251 , 127,255,247, 125,222,251 , 191 

DATAO, 12,6,255,255,255,6,12,153,219,126,60,60, 126,219, 153 

DATA255, 255, 195, 195, 195, 195, 255, 255,30, 59, 63, 28, 28, 22, 22, 22 

DA TA22, 114, 158, 156, 152, 152, 24, 30, 0,7 ,31, 56, 96, 199, 207, 255 

DATA254, 255, 1,0, 254, 255, 255, 255, 0,192, 240, 56, 12, 198,230,254 

DATA24, 24, 24, 24, 24, 24, 24, 24, 60, 60, 24, 126, 189 ,60, 66 ,129,-1 

REM=====MUSIKDATAS===== 

DATA834, 834, 739, 770, 798, 81 0,834, 834, 739, 739, 739, 739, 854, 854, 8 lO, 834, B54, 873 

DATAaSl, 881, 739, 739, 739, 739, 810, 810, 834, 8 10, 798, 770, 798 ,798, 81 0,798, 770, 739 

DATA722 , 722 , 739 , 770 , 79B , 739 , 770 , 770 , 770 , 770 , 834 , 834 , 739 , 770 , 798 , 8 1 O , 834 , 834 

DATA739, 739, 739, 739, 854, 854, 810, 834, 854, 873 ,881,881, 739, 739, 739, 739, 810,810 

DATA834 ,810, 798 , 770 , 798 , 798 ,810, 798 , 770 , 739 , 770 , 770 , 798 , 770 , 739 , 722 , 739 , 739 

DAT A739, 739,-1 

DATA704, 40, 1020, 5, 704, 40, 1020,20,739, 20, 684, 40, 1020,5,684, 40, 1020,40,770, 40 

DATA1020, 5, 770, 40, 1020, 20, 784, 20, 739,40, 1020, 5, 739, 40, 1020 ,20, 770, 20, 784, 40 

DATA1020, 5, 784, 40, 1020,20,810, 20, 770, 60, 1020, 5, 770,20,834, 20, 822, 20, 834, 20 

DATA854, 20, 864, 40, 854, 20, 834, 20, 1020,5,834, 80, -1,-1 



Die Tronic-Leserschaft sucht wieder den 




Weder gilt es, einen „saftigen" Geldpreis und wertvolle Sachpreise 
zu „erhaschen". Wer sich auch in diesem Jahr am großen Rennen um 
die Meisterschaft bewerben will, der sende sein Programm an die un- 
tenstehende Adresse (Abt. Programmentwicklung) 



Jedes eingesandte Programm nimmt an der 
Auswahl teil!!! 

Letzter Annahmetermin ist der 30. September 
1986, Der Rechtsweg ist ausgeschlossen. 

Nutzen Sie Ihre Chance, beteiligen Sie sich mit 
einem Software-Programm an unserem Wettbe- 
werb! 

Zur Auswahl: 

Wird ein Programm zur Darstellung im Heft 
herangezogen, zahlt der Verlag ein Honorar 
von DM 120,- pro abgedruckte volle Sehe. 
Zum Jahresende wählt die Redaktion aus allen 
abgedruckten Programmen (HOMECOMPU- 
TER, COMPUTRONIC, COMPUTE MIT) 
das Topprogramm des Jahres und ermittelt da- 
durch den „SOFTWARE-CHAMPION" 1986. 
Unsere Leser und die Redaktion werden dann 
in der Ausgabe Dezember/Januar '87 das ab- 
solute TOPPROGRAMM des JAHRES wäh- 
len. 

Der Autor des Program mes wird in unserer 
Ausgabe vorgestellt und mit einem Geldpreis 
fürstlich entlohnt. 



ACHTUNG: Es werden nur Spielprogramme abgedruckt, feei deren ' 

Emseatog ein mit 1,40 DM frankierter Umschlag beigelegt wirf! 

Einzusenden sind: 

++ SpielbesetoreibMig 
++ Datenträger 

++ Listing (nicht unbedingt erforderlich) 

Einsenden an: TRONIC-VERLAß - 
Postfach - 3444 Wehretal 1 
KENNWORT: SUPER-SOFTWARE- 

;•-••- >-;^k;^v ;; : CHAMPION 




Wir wünschen allen Freitzeitautoren 
viel Spaß beim Mitmachen, 
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Ein Superspiel für den ZX-Spectrum (48k) 

Otto Schweinsohr 



Eine schreckliche Nachricht erschüttert die Softwarepiraten, 
Der gefürchtete Otto Schweinsohr, aufgebrochen von der Ta- 
feirunde der heiligen H.A. CK ihre Untaten zu sühnen, kommt 
dem Kampfstern der Raubkopierer in der 17. Galaxie schon be- 
drohlich nahe. Natürlich schafft eres - aber nur wenn wir ihm 
helfen -. Doch wie immer gibt es Ärger, dafür sorgen: 

- Der kleinliche Klaus und seine Clique 

- Der bissige Berthold und seine Bande 

- Der grimmige Gottlieb und seine Gang 

Außerdem wird unser Held auch noch von einer bekannten 
staatlichen Institution verfolgt Grund; Die interstellare 
Funkanlage aus Ottos „fliegender Kiste" besitzt keine FTZ- 
Prüfsumme. 



Das Spiel selbst ist eine Routine, die aus 
100% Maschinensprache besteht, die 
durch eine Art „Systemvariable" vom Basic 
aus gesteuert wird. 

Beispiel: Poke 57615,x bestimmt die Zahl 
der Leben (auf keinen Fall mehr als 4 ein- 
poken, sonst scrollt der Bildschirm). Für 
die müheselige Eintipparbeit entschädigt 
allein schon die aufwendige Grafik. Das 
Raumschiff, das euch in einer der höheren 
Spielstufen zur Verfügung steht, setzt sich 
aus 48 Grafikzeichen (!) zusammen. 

Zur Eingabe: 

"LOAD" eingeben - das Programm wird 
geladen ebenso wie drei Maschinen-Codes 
und die Grafikteile. 

Mit "Goto 9700" kann man die Codes auch 
per Hand eingeben. 

Mit "Goto 9800" druckt man die Codes ab- 
druckreif aus. 

Einige Pokes: 

57615,x : 

Lebensanzahl (nicht über 4) 
50001,x : 

Länge der einzelnen Runden (16 Bit) 
50002,x : 

Länge der einzelnen Runden (16 Bit) 
Insgesamt sind 3 x 3 = 9 Runden vorhan- 
den. 

Startadressen: 

M-Code: Start 50.000 Länge 2300 Bytes 
Grafik I : Start 58.880 Länge 4 Zeichen- 
sätze, also 4x768 = 3072 Bytes 
Grafik IL ab „USR" „a" (also Grafikzei- 
chen) bis Ende des Speichers . . . 
-> 65368 Länge, 168 



Die System variablen: 

Inhalt: 

57600 Spalte 



14 
14 

81 




215 



des 1. Alien 



57601 Zeile J (Feind) 

57602 Alienanzeige 
(ASCII-Code des Aliens, 
hier 81) 



57603 
57604 



2 Byteadressen des 
— „Alienpanel" (Anzeige 
der Bewegungsart) 



14 

14 

32 
215 

14 
14 

64 
215 



57605 
57606 

57607 
57608 

57609 
57610 

57611 
57612 



- Posistion des 2. Alien 
J- Alienpanel d. 2. Alien 
Position des 3. Alien 
Panel III 



24 od. 17 57613 Limit (zeigt die erlaubte 
Flughöhe an (Zeile)) 

1—3 57614 Runde (wichtig für die 

Score Zählung) 

4 57615 Leben 

33 57616 Zeile des eigenen 

Raumschiffes 

16 57617 Spalte des eigenen 

Raumschiffes 

6 57618 1 Position der staat- 

12 57619 _T liehen Institution 

57620 ~|_2-Byte-Score 

57621 _T Anfangs bei 00) 

57622 ~|_ 2-Byte-Highscore 

57623 J~ (Anfangs bei 500) 



-*_. 



"*-* 








ES52T 



„Meyer, schaffen Sie mir auf der Stelle diesen Otto Schweinsohr hierher. Der kann in 
Zukunft mein Kaminholz hacken, aber keine Computer-Programme mehr!" 
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Otto Schweinsohr 



ist Super! 



Listing - Teil Eins 



0>REM 

von CHRISTOPH HOLZHEUER 

© 4/1985 

2 GO BUB 9400 

3 DEF FN -f(s)»PEEK s+25t*PEEK 
(e+1) 

10 BORDER Oi PAPER 

15 CLS i LET z*-4 

16 GQ SUB S10O 

17 PLOT 36,112 

18 GO SUB 8150 

20 LET za=12s INK 3t GO SUB 82 
00 

21 PLDT SS, 112* LET z«=8 

22 GO SUB B200s PLOT 104, 12B 

23 LET za«4i GO SUB B200 

24 PRINT AT 20,1 j" *#* ""SPACE"' 
[ Hauptmenu *** " 

25 PLOT 164,1121 LET za=l 

26 GO SUB S200i DRAM 0,40,-3 

27 LET za=3< BO SUB S20Ö 
30 DRAU) 0,-S,4i LET *a=2 

32 GO SUB 820Os PLOT 176,112 
34 LET za=12t GQ SUB B200 

45 CIRCLE 82,115,3 

46 RANDOMIZE U5R 50260 

47 CIRCLE 132,115,3 

48 RANDOMIZE USR 50260 

49 CIRCLE 169,115,3 

50 RANDOMIZE UBR 50260 

52 CIRCLE 221,115,3 

53 RANDOMIZE USR 50260 

62 PLOT HO, 22: GO SUB 8200 

63 PLOT 122,52s LET ia=4 

64 GO SUB 8200 

65 INK Ot PAPER 1 

66 BEEP .7,-6: BEEP .9,-13j BE 
EP .6,-10 

67 PRINT AT 10,1) ■ 

69 INK 7 

70 PRINT AT ll,l;"nf TR " 

71 PRINT AT 12,1; " |B | 111" 

72 PRINT AT 13,1; "—»■"■ » 

so print at ii,ioi n rriii in 

s. ■ r n 1 1 n ■■ 

BI PRINT AT 12,10) " lg mi.lPI 

nmnr " 

B2 PRINT AT 13, lOj » - - * « «™ ■ ■ 

■ ■ HE HU ■ ■ ■ ■ II 

83 PRINT *1;"# Anleitung btwug 
nscht? (j/n) #" 



84 BRISHT 1 

BS PRINT AT 9,10j" P r*»»»nti«rt 

S6 PAPER O 

B7 PRINT AT 13,21 1 "DESIGN: " 

BS PRINT AT 16,3} "M. Geiger" 

89 PRINT AT 16, 19; "C. Holzhauer 

90 PRINT AT 15, 4j "GRAPHIK: " 

91 PRINT AT 20, 2 1 "Copyright k.i 
19B5 by H.A. CK." 

97 PAUSE 

98 IF INKEY*-"n" THEN GO TO 30 


99 REM Anleitung br*v Abtippen 

100 CLS 3 INK 7t PRINT '* 

101 RANDOMIZE USR 50260 

105 PRINT " Die Vorgwsehi 
cht»" 

106 PRINT " 



107 PRINT ' 
lOB INK 3 

110 PRINT " 
Nachricht" 

111 PRINT " 
of tw«r«~" 

112 PRINT " 
115 PRINT ' 

t«t« Otto" 

117 PRINT " 
brochan" 

120 PRINT » 

d«r hBil-" 

122 PRINT " 
■ Untaten" 

124 PRINT " 

126 PRINT " 
•m Kamp-f— " 

130 PRINT " 
mrer in" 

132 PRINT " 
han bin-" 

134 PRINT " drohlich nah» ..." 

136 80 SUB 81001 INK 3 

137 PRINT #lj" ** TASTE 
! **" 

140 PAUSE O: CLS 

141 RANDOMIZE USR 50260 

150 PRINT "" Natürlich «ch.-f 
■f t ir *s. " 

152 PRINT " <Ab»r nur w»nn "j 
FLASH lj"DU"j FLASH Oj " ihm hil-f 

Bt)" 

154 PRINT " Ab«r wi» immer gib 
t n " 

156 PRINT " Aargan" 
160 PRINT " Dmr Atsrgar 



Eine schreckliche 

erschuettart dia> S 

piratani " 

Dar gs-fusrch 

Schwsinsahr, au-fg« 

van dir Ta-falrunds 

igen H.A. CK. ihr 

zu suohnan," 

kommt d 

stern dar Raub k dpi 

dar 17. Galaxie sc 



162 PRINT AT 10,0 
164 PRINT " Dar 
Dar " 



Der 



168 PRINT 

grimmige" 
170 PRINT 

Gottliab" 
172 PRINT 

und" 

174 PRINT 

aei na" 

176 PRINT 
Gang " 

177 PRINT 



klein— 



1 ich« 



Klau* 



und 



bisaige 



Bertold 



und 



Bande 



Clique"! INK 7 
17B GO SUB SOOOi POKE 57603,0 

179 POKE 23607,232 

180 POKE 57600,29 

181 POKE 57601,16 

182 POKE 5760S,B* POKE 57607,0 

183 POKE 57606,16« POKE 57611,0 

184 POKE 57609, 1B 
1B5 POKE 57610,16 

187 PRINT |i LET 1-USR 50432 

188 POKE 57602,8= 

189 PRINT )i LET 1-USR 50485 

190 POKE 57602,89 

191 PRINT :; LET 1=USR 50541 

192 POKE 23607,60: INK 3 

193 PRINT #1;" ** TASTE 
j **" 

195 GO SUB SlOO: INK 3 

199 PAUSE 

200 CLS t RANDOMIZE USR 50260 

201 PRINT '*" Ausserdem wird 
unser Held" 

203 PRINT 
o«poatmi -" 

205 PRINT 
rfolgti" 

207 PRINT 
tal lara" 

209 PRINT 
ttos" 

211 PRINT TAB 7 ; "Bomber hat kt 



mch noch vom Bund 



nistar (Oho!) ve 



Grund: Dia Intern 



Funkanlaga aus 



213 PRINT 



FTZ Pruefnummar 



240 PRINT AT 16,0 

242 PRINT " Bit und Bytebruch 

Muanscht" 

250 PRINT '" euch eure H. 
A.CK. ! " 

251 BO SUB 8100 

260 POKE 57619,9 

261 FOR n=9 TO 21 

262 POKE 5761B f n 

263 RANDOMIZE UBR 51345 

270 NEXT n 

271 REM das war dar POSTMINISTA 
2B0 PRINT #1:" ** TASTE 

I *#" 
291 INK 7 

299 PAUSE 

300 INK Si CLS 
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Co mput ron ic 



MENÜ" 

M 

tu Kempste-n 
C23 Tasten £ ( 
C33 Raus dami 
C43 Auf ins A 
i:j 19S5 by 
FSKs -freigegeben 



310 PRINT ''" Was dar-f's dann 
heute sein 7" 

311 PRINT 
313 PRINT ' 
315 PRINT ' 
320 PRINT ' 

Joystick" 

322 PRINT ' 
l^q,'" T' 

324 PRINT ' 
t! (NEW)" 

327 PRINT ' 
ben teuer" 

330 PRINT ' 
H.A. CK." 

333 PRINT ' 
ab 3 Jahren" 

335 GC BUB 8100c INK 5 

350 LET q=CDDE INKEY* 

351 IF q>52 THEN GD TD 350 

352 IF q<49 THEN GO TD 350 

353 BEEP .3,3 

356 GD TD 360+5*<q-48> 
360 GD TD 350 

365 PDKE 22758,199 

366 PDKE 50054,96 

367 POKE 50055,198 
36B GO TD 350 

369 REM das war fuern Joystick 

370 POKE 22822,199 

371 POKE 50054,238 

372 POKE 50055,202 

373 GO TO 350 

374 REM das war -fuwr» Keyboard 

375 STOP 

380 REM ab ins spiel 

399 REM ab 400t Vorbereitung 

400 POKE 57615,4 

401 PDKE 57 620, Ob POKE 57621,0 

402 POKE 50001,124 

403 POKE 50002,1 

409 INK 7 

410 GO SUB BOOO 

500 FOR x-1 TO 3 

501 POKE 57614,« 

502 POKE 57613,24 

503 IF x*3 THEN GO SUB B050 
510 GD SUB 6000 

700 FOR Y-l TO 3 

701 CLS 

702 INK 4+x 

705 PDKE 23607, <x*3)+226 

706 GO SUB 4S90+<x#100)+(y*10> 

707 LET 1-USR 50B41i REM score 

710 FOR n=14 TO 16 

711 POKE 5761 7, n: REM ztaile 

712 LET 1-USR SOI SO 

713 LET 1»USR 50713 

714 IF «-3 THEN LET 1=UBR 52220 
720 BEEP .2,ni NEXT n 

725 BEEP .2,-21 BEEP .4,0 

800 LET 1-USR 50000 

801 REM das war's HAUPTPRDBRAM 
B50 LET w=FEEK 5761 7 i REM seile 
851 FOR n-w TO 14 STEP -1 

B52 POKE 5761 7, ni REM zsile 

B53 LET 1-USR 50150 

S54 LET 1-UBR 50713 

855 IF x=3 THEN LET 1-UBR 52220 

B56 BEEP .2,ni NEXT n 

S60 BEEP .2,0s BEEP .4,-2 

B61 POKE 23607,60 

862 INK 3 

B65 IF PEEK 23560-121 THEN GD T 
SB5 

B66 PRINT AT 10, 10s. "Gelandet ! " 

B6B PRINT #lj FLASH ls" 
** TASTE! **",i PAUSE 

869 PRINT AT 10,10|" 

B70 IF PEEK 57615>0 THEN NEXT y 



871 IF PEEK 57615>0 THEN NEXT X 
873 IF x-4 THEN GO SUB 7e3 
9B0 PRINT AT 9, 12) "GAME OVER" 

885 LET s«57620: REM score 

886 LET p-FN f <*) 

887 LET »-57622I REM hi score 

888 LET hi-FN * (s) 

8S9 IF p>hi THEN BEEP l,li INFU 
T "Dein werter N«mei">h*i POKE 5 
7622, PEEK 57620i PDKE 57623, PEEK 

57621s LET hi»FN f (s> 

890 PRINT AT 10, 1 1 t "Seorei 0"ip 

891 PRINT AT 12,13t"Hi» "ihi 

892 PRINT AT 14,lli"voni "|h* 

900 PLOT 7S, 116 

901 DRAW 109, Ol DRAW 0,-70 

902 DRAW -109,0s DRAW 0,70 

910 PAUSE O 

911 BEEP 2,-5 

998 RESTORE i GG TO 10 

5000 REM landscha-ft 1.1 

5001 PRINT AT 16, Oj INK 4j " i 



gh 


ij 




ij 


kl 


ij 


kl 


mn 


kl 


mn 




mn 



gh 



or 

srq 



i ij 

1 kl 

n i j mn 

kl 

mn" 
5002 PLOT 0,23 

5005 DRAM 255,0 

5006 RETURN 

5010 REM landscha-ft 1.2 

5011 PRINT AT 16, 0| INK 2| " 
ap op op 
qqpop oqqp ap aqqp op 
sqrqqpoqrsqpoqqpoqrsqpoqqp 
qsqqqrqrqqqrqqqrqrqqsqsqqqp " 
5013 RETURN 

5020 REM landscha-ft 2.1 

5021 PRINT AT 16,0] INK lj"ututu 
tutututututututututututututvwvwv 

WVWVWVHVHVWVWVWVWVWVWVWVWVWVWVMV 

wvwvwvwvwvwvwvwvwvwvwvwvwvwvwvwv 
wvwvwvwvwvwvwvwvwvwvwvwvwvwvwvwv 

WVHIVWVWVWVWVWVWVWVWVWVWVWVWVWVWV 

wvwvwvwvwvwvwvwvwvwvwvwvwvw " 
5024 RETURN 

5100 REM landscha-ft 2.1 

5101 PRINT AT 16, Oi INK 6;"jklBH 
ajklJWhlBjklBMhiMIJk lHJk ia^illlhili 

l ÜBh i BmHi j i ■ j k 1 h i HHöBHeh i HS j k 1 91 

vm j k i u i n j ki wmmm j 1 1 

IkUHnHtmMMJkllBCjkl! 

5105 RETURN 

5110 REM landscha-ft 2.2 

5111 INK 4s PRINT AT 16,0; "no 
no no pq 

no pq pq no rs 
pq rs no rs pq no 
rs pq rs pq 

rs rs" 

5112 PLOT 0,23s DRAW 255,0 

5113 INK 6« RETURN 

5120 REM landscha-ft 2.3 

5121 PLOT 0,1B 

5122 DRAW 60,0,-3i 
-1 

5124 DRAW 75,5,1 

5125 PLOT 50,36 
5127 DRAW 60,-6,-1.7 
5130 RETURN 

5200 REM landschaft 3.1 

5201 PRINT AT 16, Oj INK 5s"ghjik 
1 j i khh jhikhhh jh jh jh jh jghghggh ji k 
lghijklghijklghijklghjiklghjiklg 
ghjiklghji klgh ji kl ghjiklghji klgh 
jiklghjiklghjikllghjiklghjiklghj 
ikkghjiklghjiklghjkikghjiklhijkl 
jihjklikljijhjkijjkjhhjkiki," 



DRAW 120,-10, 



5202 PRINT AT 0,0; -INK 5:"ghjikl 
ji khh jhikhhh jhjhjh jh jghghggh ji kl 
ghijklghijklghijklghjiklghjiklgg 
hjiklghjiklghjiklghjiklghjiklghj 
i kl gh ji kl gh ji kl lghji kl ghjiklghji 
kkgh ji klghji klgh jkikghji klnropqn 
ropqnropqnropqnropqnropqnr " 

5209 RETURN 

5210 REM landscha-ft 3.2 

5211 PRINT AT 16,0: INK 2s "mtutu 
utuutuutuutututtuuutuutuutuututLi 

UUt Ututututuutt Litt Liut tut Utut tut t 

Lttuttuttutttutuutuututtutuuutuut 

utuutuututututututuututututtutut 
utatutututututututututuuutututuu 
tututuutuutuutLiuttuuuttuutt " 

5212 PRINT AT 0,0s INK 3i "vwx 



vwx vwx 




Vt» 


JX 


yz C yz< 


vwst 


y= 


-C vwx 




yz-C 




yz i 


vwx 








yzC 


vwx 




vwx 




yzt 




yzl" 



yz { 



vwx 
yz £ 



5214 RETURN 

5220 REM landscha-ft 3.3 

5221 FOR n»0 TD 255 STEP 16 

5223 PLDT n,Oi DRAW 0,47 

5224 NEXT n 

5226 FOR n-1 TO 7 

5244 PLOT 0,48-(n A 2>: DRAW 255,0 

5247 NEXT n 

5249 FOR n=0 TO 255 STEP 16 

5250 PLOT n,175i DRAW 0,-46 

5251 NEXT n 

5252 FOR n=7 TO 2 STEP -1 

5253 PLOT O, Cn A 2)+125B DRAW 255, 


5255 NEXT n 
5266 INK 7 
5299 RETURN 

5999 REM das ist der Vorspann 

6000 CLS s RESTORE 9O40 

6001 PAPER 1» PRINT AT 15,1 

6002 LET 1-2 

6003 FOR n=16 TD 20 

6004 IF n=17 THEN PAPER 3 

6005 PRINT AT n, 1: " 



6007 
6015 
6016 
6020 
6021 
6022 
6,6: 
6023 
6024 
0,20 
6025 
6026 
6027 
6020 
6029 
6030 
6031 
6040 
6041 
6042 
6043 
6044 
6045 
6047 
6048 
6049 
6050 
6051 
6052 
6057 
605B 
6060 



NEXT n 

GD SUB GlOOi INK 7i PAPER 

PRINT AT 2, 12ixi". Runde" 

PRINT AT 13,22s "AIRPORT" 

PLOT 174,62 

DRAW 56, Ol DRAW 6,6a DRAW - 

DRAW -56,0s DRAW 0,-12 

PLOT 197,63 

DRAW 0,-20s DRAW 3,0s DRAW 

PLOT 8,37: DRAW 239,0 

PLOT B,34» DRAW 239,0 

PLOT 36,130 

DRAW 87, Oj DRAW 0,-12 

DRAW -87, Ol DRAW 0,12 

INK 7 

DIM a*C6,3) 

LET a*(l>-" UV" 

LET a*(2>=" WX" 

LET a*£3>=" ]«" 

LET a*<4)-" _.£'■ 

LET a*(5)-" ab" 

LET a*C6>»" cd" 

LET 1=1 

FOR 4~i TD 6 

FOR n=i TO 6 STEP 2 

POKE 23607,238 

PRINT AT 12,1 j" QR" 

PRINT AT 13,1 i" ST" 

PRINT AT 14,lja*<n> 

PRINT AT 15,l|a*(n+n 

READ a,bi BEEP a,b-10 



Gomputronäe 



^0&^_ 



6061 LET 1=1+1 

6063 PGKE 23607,60 

6065 PRINT AT 6,5;b*(x,l T0 l+9> 

6070 NEXT n 

6071 NEXT + 

6075 POKE 23607,60 
6079 PAUSE 60 
6OB0 RETURN 
7O00 CLS 

7009 PRINT 
T I N " 

7010 PRINT 
fang nicht" 
7020 PRINT ' 

haet dim" 
7030 PRINT ' 
rkenawart" 
7040 PRINT ' 



B R A T U L A 

Naja,-fuer den An 

allzu «chl «cht. Du 

Sparranlagen beme 

gut ueberatanden. 

Leider muBit Du 



dKkan,d»> dar K 

eeit 20 Jahran to 

1 aaaen vor ai ch h 

malt." 

Wia'a waitergeht 

Quta Frag»! Dia 

findeet Du in dam 

apial OTTO SCHWEI 



Bi 



7050 PRINT ' 
abar ant-" 
7060 PRINT " 
amp-fatarn" 
7070 PRINT " 
tal vai — " 
7080 PRINT " 
in echim-" 
7090 PRINT " 
7100 PRINT » 
?» 

7110 PRINT ' 
Antwort " 
7120 PRINT " 
Nachfolge-" 
7130 PRINT " 
NBGHR II" 

7140 GD SUB 9100t PAUSE 
7150 CLB s RETURN 

7699 REM on break goto 

7700 PRINT AT 10,2) "Na Na Na 
tte kein Break!" 

7701 BEEP 1,0s PAUSE 50 
7710 PRINT AT 10, 2j" 

II 

7720 RETURN 

7999 REM ayatemvars 

aOOO POKE 5760O,4» PGKE 57601,14 

S001 POKE 57602,81 

8002 POKE 57603,0 

S003 PDKE 57604,215 

B005 POKE 57605,61 PDKE 57606,16 

B007 POKE 57607,32 

B008 POKE 57608,215 

BOIO POKE 57609,8i POKE 57610, 1B 

B011 POKE 57611,64 

8012 POKE 57612,215 

8015 POKE 57616,33 

8016 POKE 57617,14 

8020 POKE 5761B,Bs POKE 57619,12 
B025 PDKE 57620,0i PDKE 57621,0 
8026 PDKE 57627,13 
S027 PDKE 57626, B 
8028 POKE 57628,0 
8030 RETURN 

8049 REM letzter level 

8050 BD SUB 8000 

B051 PDKE 57613,18i REM limlt 

8052 IF PEEK 57615<4 THEN PDKE 5 
7615, (PEEK 57615)+1 

8053 POKE 50002,0 

8054 PDKE 30001,190 
B060 RETURN 

8100 INK li DRAU 255, Ol DRAW 0,1 
75t DRAW -255, Ol DRAW 0,-175 

8101 PLOT 5,5 

B102 DRAW 245,0s DRAW 0,165« DRA 
W -245,0* DRAW 0,-165 
BIOS RETURN 
8150 INK 7 



8155 FOR f-1 TO 4 

8160 READ w*,T 

8165 FOR n-19 TO 1 STEP -1 

8170 PRINT AT n,Tjw*jAT n+l,ts" 

ii 

8171 NEXT n 

B175 RAND0MI7.E USR 50210 

S1B0 NEXT fs RETURN 

8200 FOR n-1 TO zai READ « ,y 

8205 DRAW x,yi NEXT n 

8206 IF INKEY*«" " THEN GQ TD 30 
O 

8210 RETURN 

8999 STOP 

9002 DATA "HYDRO" ,2, "AKTIVE" ,B, " 

COMPUTER" ,15," K0MUNE",23 

9005 DATA 0,40,16,0,0,-16,8,0,0, 

16,16,0,0,-40,-16,0,0,16,-8,0,0, 

-16,-16,0 

9010 DATA 16,40,8,0,16,-40,-16,0 

,o,B,-a,o,o,-a,-i6,o,a,o,o,B,-8, 

0,0,-8 

902O DATA -13,0, 13, 0,0,-16, -B,0, 

8,0,0,-16 

9O30 DATA 0,40,16,0,0,-16,24,16, 

0,-16,-8,-6,8,-18,-16,0,-5,10,-3 

,-2,0,-8,-16,0 

9035 DATA 0,15,8,0,0,4,6,0,0,8,7 

,0,0,-8,6,0,0,-4,8,0,0,-15,-34,0 

9037 DATA 11,0,0,7,-11,0,0,-7 

9040 DATA . 5,20, .25,22, . 125,20, . 

375, 17,. 5, 17,. 25, 17,. 125, 15,. 25, 

17,. 125, 18,. 5, 17,. 5, 18,. 25, 15,-1 

25, 20,. 75, 17,. 5, 13,. 25, 10,. 125,1 

5,.75,B 

9050 RETURN 

9400 IF PEEK 5e4<>0 THEN 80 TO 9 

500 

9410 LOAD ""CODE 

9411 LOAD ""CODE 

9412 LOAD ""CODE 

9500 PDKE 57622,244i PDKE 57623, 
1 

9501 LET a*-" Seorar Hi i 
Rur" 

9502 LET h*«"EMPIRE" 

9510 FDR n«l TD LEN a* 

9511 POKE n+55 166, CODE a#(n) 

9512 NEXT n 

9520 DIM b*(3,50> 

9521 LET b*(l)»" Otto «tartot vo 
n der Erde" 

9522 LET b*(2)-" Dia Rauntbase ie 
t erreicht" 

9523 LET b*(3)=" Wir sind am Kam 
p-fatern. . . " 

9599 RESTORE 9605 

9600 FOR n=55040 TD 55071s READ 
at PDKE n,at NEXT n 

9601 FOR n=55072 TO 55103s READ 
at POKE n,ai NEXT n 

9602 FOR n-55104 TO 55135t READ 
ai POKE n,a« NEXT n 

9603 RESTORE 

9605 DATA 0,0,1,0,0,255,0,1 

9606 DATA 0,0,1,0,0,255,0,1 

9607 DATA 0,0, 1 ;o,0, 255,0, 1 
9600 DATA 0,0,1,0,0,255,0,1 

9610 DATA 1,255,1,255,0,0,0,1 

9611 DATA 1,255,1,255,0,0,0,1 

9612 DATA 1,255,1,255,0,0,0,1 

9613 DATA 1,255,1,255,0,0,0,1 

9620 DATA 0,1,0,255,0,1,0,0 

9621 DATA 0,1,0,255,0,1,0,0 

9622 DATA 0,1,0,255,0,1,0,0 

9623 DATA 0,1,0,255,0,1,0,0 

9630 >REM daa war die Alienbewegu 

ng 

9699 RETURN 



9700 LET a»5a4 

9710 INPUT i 

9720 PRINT a,ii POKE a,i 

9730 LET a-a+1 

9740 IF a«61697 THEN LET «»USR " 
a" 

9741 IF a-52195 THEN LET *=5BSBO 
9750 QO TO 9710 

9799 STOP 

9BOO LET h-5b4 

9B10 PRINT Mf 

9820 FOR n-6 TO 29 STEP 4 

9S30 PRINT TAB njPEEK « ; 

9835 LET H-x+i 

9840 IF x »52 196 THEN LET x «58880 

9841 IF x»61700 THEN LET x=U6R " 
a" 

9B45 NEXT n« PRINT 
9850 GD TD 9810 

9990 CLErtR 

9991 SAVE "OTTO I" LINE 1 

9992 SAVE "OTTOMC'CDDE 5*4,2300 

9993 SAVE "0TT0SR"C0DE 5BBB0,4*7 
68 

9994 SAVE "DTTOPM"CODE USR "a",7 
68 

9999 BO TD 9991 



Listing: Teil Zwei 



50000 17 
50006 225 
50012 53 
50018 30 
50024 53 
50030 230 
50036 197 
50042 197 
50048 203 
50054 238 
50060 62 
50066 58 
50072 5 
5007B 184 
50084 199 
50090 123 
50096 111 
50102 203 
30108 111 
50114 225 
5O120 O 
50126 15 
50132 B 
50138 62 
50144 187 
50150 33 
50156 6 
50162 1 
50168 237 
50174 1 
50180 27 
50186 64 
50192 35 
50198 237 
50204 35 
50210 17 
50216.33 
50222 203 
50228 197 
50234 21 
50240 16 
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60404 














12B 


59570 


253 251 


251 


199 


63 


255 


59990 


o 








128 


255 





60410 


192 255 


235 


192 


12B 





59576 


255 31 


239 


247 


247 


249 


59996 


o 











8 


16 


60416 


* 


O 











595B2 


254 255 


24 


56 


89 


123 


60002 


224 

















60422 





240 


254 


255 


127 


59588 


255 255 


255 


255 





12B 


6000S 











O 








60428 


127 127 


63 


63 








59594 


192 192 


192 


160 


184 


191 


60014 




















60434 


224 252 


255 


255 


255 


255 


59600 


255 255 


255 


255 


126 


121 


60020 




















60440 


3 


29 


34 


196 


132 


59606 


135 255 


255 


131 


125 


126 


60026 




















60446 


196 195 





254 


65 


160 


59612 


253 233 


255 


255 








60032 




















60452 


160 160 


176 


200 








59618 





O 











60038 





o 


7 


31 


61 


121 


60458 


128 64 


32 


32 


16 


8 


59624 


O 








O 





60044 


121 


127 


63 


28 


224 


248 


60464 

















59630 

















60030 


188 


15B 


158 


254 


232 


56 


60470 

















59636 


O 








o 





60056 


11 


19 


36 


66 


33 


16 


60476 

















59642 


219 


219 











60062 


8 





208 


200 


36 


66 


60482 

















59648 











o 





60068 


132 


8 


16 


6 


7 


15 


60488 


DO 1 


31 


31 


31 


15 


59654 

















60074 


29 


57 


57 


59 


31 


29 


60494 


15 15 


255 


255 


255 


255 


59660 











3 


2 


60080 


224 


240 


184 


156 


156 


220 


60500 


255 255 


255 


255 


229 


22B 


59666 


4 4 


8 


8 


16 


16 


60086 


248 


184 


13 


13 


15 


15 


60506 


248 248 


252 


252 


254 


254 


59672 


248 


22 


17 


16 


48 


60092 


10 


10 


10 


7 


176 


176 


60512 


55 200 


9 


12 


9 


63 


59678 


56 40 








O 


192 


60098 


240 


240 


BO 


80 


80 


224 


6Ö51B 


65 38 


8 


136 


143 


144 


59684 


56 7 


192 


160 








60104 


7 


24 


32 


94 


82 


158 


60524 


224 128 














5969Q 


O 








192 


32 


60110 


142 


128 


224 


24 


4 


122 


60530 


225 


253 


255 


255 


253 


59696 

















60116 


74 


121 


113 


1 


128 


135 


60536 








235 


151 


251 


59702 


O 














60122 


138 


154 


175 


184 


128 


255 


60542 


255 255 











128 


5970B 

















60128 


1 


225 


81 


89 


245 


29 


60548 


248 128 


128 


128 


7 


7 


59714 

















60134 


1 


255 


14 


25 


32 


32 


60554 


7 7 


3 


3 


3 


1 


59720 











7 


4 


60140 


67 


100 


36 


56 





128 


60560 


255 255 


255 


255 


255 


255 


59726 


28 23 


16 


16 


32 


32 


60146 


128 


254 


2 


129 


121 


5 


60566 


255 255 


254 


255 


255 


255 


59732 


192 64 


64 


192 


42 


75 


60152 


36 


68 


6B 


68 


67 


134 


60572 


235 255 


255 


255 


47 


63 


5973B 


83 83 


145 


161 


162 


162 


60158 


121 





5 


170 


202 


9 


60578 


j 27 255 


255 


255 


255 


235 


59744 


96 144 


72 


92 


71 


57 


60164 


197 


93 


38 


24B 





120 


60584 


255 255 


255 


255 


255 


255 


59750 


1 1 


16 


8 


4 


130 


60170 


76 


70 


67 


32 


44 


74 


60590 


255 255 


255 


255 


255 


235 


59756 


67 71 


72 


72 





. 


60176 


14 


50 


66 


66 


68 


136 


60596 


255 255 


255 


255 


255 


235 


59762 


1 


3 


131 


97 


28 


60182 


BO 


176 


73 


70 


47 


18 


60602 


Aww Zwü 


255 


255 


255 


255 


59768 








42 


170 


255 


60188 


4 


4 


2 


1 


88 


72 


60608 


224 248 


254 


255 


254 


2S2 


59774 


42 42 











128 


60194 


6B 


162 


122 


42 


36 


192 


60614 


248 240 


1 


1 








59780 


192 24B 


192 


128 


20 


36 


60200 


195 


252 


124 


62 


31 


5 


60620 











255 


235 


59786 


47 40 


104 


239 


104 


40 


60206 


7 





192 


32 


16 


60 


60626 


255 


127 


63 


31 


15 


59792 


128 128 


129 


129 


129 


129 


60212 


255 


80 


240 


192 


192 


32 


60632 


255 255 





255 


255 


255 
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60630 


255 


255 


255 


255 





255 


60644 


255 


255 


255 


255 


255 


255 


60650 





255 


255 


255 


255 


255 


60656 


255 


255 





255 


255 


255 


60662 


255 


254 


255 


255 





254 


60668 


24B 


224 


128 





192 


128 


60674 




















60680 




















60686 








7 


3 


1 


O 


60692 














255 


248 


60698 


243 


240 


113 


56 


2B 


15 


60704 


255 





255 


32 


254 


O 


60710 





3 


255 


127 


63 


62 


60716 


120 


224 


128 





248 


224 


60722 


128 





O 











60728 














o 





60734 




















60740 




















60746 




















60752 








o 











6075B 








7 


3 


1 





60764 








o 





252 


240 


60770 


192 

















60776 








O 











60782 




















60788 




















60794 








o 











60800 




















60B06 








15 


63 


127 


120 


60812 


240 


224 


224 


224 


128 


192 


6081 B 


192 


64 


O 


126 


124 





60824 


224 


224 


224 


240 


120 


127 


60830 


63 


15 


O 


124 


126 





60836 


64 


192 


192 


128 


195 


199 


60842 


206 


236 


252 


252 


124 


126 


60848 


207 


207 


239 


111 


111 


126 


60854 


126 


126 


63 


31 


7 ■ 


O 


60860 


66 


246 


102 


76 


254 


252 


60B66 


240 





130 


207 


198 


98 


60872 


11 


11 


27 


27 


27 


27 


60B78 


27 


27 


160 


160 


176 


176 


60884 


176 


176 


176 


176 


27 


59 


60890 


59 


243 


243 


227 


227 


195 


60896 


176 


194 


184 


190 


158 


158 


60902 


142 


134 


14 


25 


32 


32 


6090S 


67 


100 


36 


56 


O 


128 


60914 


128 


254 


2 


129 


121 


5 


60920 


36 


68 


68 


6B 


67 


134 


60926 


121 





5 


170 


202 


9 


60932 


197 


93 


38 


248 





120 


6093B 


76 


70 


67 


32 


44 


74 


60944 


14 


50 


66 


66 


68 


136 


60950 


80 


176 


73 


70 


47 


18 


60956 


4 


4 


2 


1 


88 


72 


60962 


68 


162 


122 


42 


36 


192 


60968 


227 


252 


126 


127 


63 


31 


60974 


12 


7 


192 


32 


28 


63 


60980 


254 


248 


48 


224 





127 


60986 


64 


95 


240 


23 


20 


20 


60992 





248 


9 


255 


1 


255 


60998 


2 


2 


63 


4B 


255 


1 


61004 


1 


255 


1 


7 


252 


5 


61010 


5 


5 


63 


32 


254 


130 


61016 





252 


7 


4 


196 


127 


61022 


64 


64 








248 


8 


61028 


255 


128 


19t 


161 








61034 




















61040 


133 


253 


1 


255 


16 


31 


61046 








2 


2 


254 


35 


61052 


32 


224 


63 





65 


127 



61058 
61064 
61070 
61076 
61082 
61088 
61094 
61100 
61106 
61112 
61118 
61124 
61130 
61136 
61142 
61148 
61154 
61160 
61166 
61172 
6117B 
61184 
61190 
61196 
61202 
61208 
61214 
61220 
61226 
61232 
61238 
61244 
61250 
61256 
61262 
6126B 
61274 
61280 
61286 
61292 
61298 
61304 
61310 
61316 
61322 
61328 
61334 
61340 
61346 
61352 
61358 
61364 
61370 
61376 
61382 
61388 
61394 
6140O 
61406 
61412 
61418 
61424 
61430 
61436 
61442 
61448 
61454 
61460 
61466 
61472 
61478 



4 

224 

12 

255 

232 

129 

66 



6 





16 

64 



32 

32 





o 

o 

32 



o 





176 

o 






o 



3 

31 

11 

252 

20 

192 

74 







o 

31 

191 

255 

253 

225 

231 

255 

219 

248 



192 

15 

252 

254 

38 

223 

7 

150 

63 

218 

128 







7 

162 

249 



252 

128 

252 

144 

15 

66 

129 



24 

240 



e 

64 

o 

223 
224 


o 



o 

255 





1 

24 



176 







o 
o 
o 

7 

31 

243 

37 

192 
138 
O 
O 

o 


30 

223 

199 

125 

255 

15 

122 

91 

254 



192 

7 

255 

224 

67 

24 

216 

117 

247 

132 









15 

189 



160 

255 

64 

31 

250 

36 

255 



32 

13 



8 

64 



8 

64 





o 
o 

252 





1 

239 





89 











8 

247 

216 

254 

37 

128 

146 









49 

239 

255 

141 

253 

63 

249 

219 



30 



255 

111 

125 

255 

43 

133 

246 

243 

128 





o 

15 

251 
63 



160 

128 

64 



2 

24 



255 

64 

2 



8 

32 

128 

8 

128 



o 
o 





o 

3 

239 





151 











30 

250 

219 

255 

26 



147 









31 

79 

199 

225 

253 

255 

223 

211 

247 



14 



255 

111 

124 

63 

246 

62 

196 

251 





ö 



7 

195 

199 



160 

128 

255 

40 

254 

24 





76 

4 

12B 

32 

16 

129 

16 







o 

o 

65 





o 

239 
192 

O 

o 
o 
o 
o 
o 

31 

250 

116 

255 

42 

12 

O 



o 

o 

15 

31 

1B7 

59 

227 

253 

255 

159 

96 

10B 

O 

14 

247 

255 

113 

127 

239 

239 

227 

189 

192 

O 

O 

o 

7 
3 

247 
251 



63 

255 

128 

40 



36 

O 

1 

48 

8 

96 

64 

15 

64 

16 



O 

O 

o 

139 

8 







239 

224 

O 









o 



31 

251 

248 

255 

69 

244 

O 

192 





15 

31 

252 

253 

229 

251 

127 

155 

176 

219 

128 

14 

251 

3 

56 

63 

112 

255 

221 

58 

128 





o 

7 
O 

247 
253 



614B4 


63 


159 


227 


190 


255 


188 


61490 


224 


12B 


128 











61496 


252 


112 














61502 




















61508 




















61514 




















61520 




















61526 


o 

















61532 














31 


3 


61538 


1 


1 


1 











61544 


220 


232 


224 


224 


192 


128 


61550 


O 


Ö 














61556 




















61562 




















61568 




















61574 








129 


193 


178 


140 


61580 


160 


sa 


32 


33 


128 


64 


61586 


64 


32 


112 


2O0 


21B 


253 


61592 


35 


35 


33 


32 


20 


19 


61598 


8 


8 


41 


105 


169 


201 


61604 


6 


248 


240 


32 


16 


4B 


61610 


20B 


144 


145 


176 


208 


16 


61616 


64 


32 


24 


4 


2 


194 


61622 


60 


32 


16 


32 


64 


129 


61628 


129 


130 


6B 


56 


160 


144 


61634 


136 


4 


2 


130 


66 


60 


61640 


112 


SO 


80 


81 


81 


81 


61646 


112 


16 


32 


32 


16 


16 


61652 


16 


16 


144 


96 


16 


33 


61658 


33 


34 


66 


66 


69 


56 


61664 


32 


16 


16 


16 


16 


16 


61670 


16 


224 


16 


18 


18 


18 


61676 


18 


18 


17 


16 


32 


32 


61682 


32 


32 


32 


32 


32 


192 


61688 


16 


32 


36 


36 


66 


66 


61 694 


69 


56 


64 


32 


32 


16 


65368 


126 


62 


6 


2 








65374 


O 





129 


129 


241 


143 


65380 


129 


129 


113 


15 


65 


65 


Ow«^Ow 


64 


64 


64 


64 


64 


255 


65392 


157 


149 


213 


247 


127 


62 


65398 





255 


194 


194 


130 


130 


65404 


2 


2 


2 


255 


129 


129 


65410 


143 


241 


129 


129 


142 


240 


65416 














2 


6 


65422 


56 


194 


15 


113 


129 


129 


65428 


143 


241 


129 


129 


255 


64 


65434 


71 


69 


71 


6B 


68 


64 


65440 


255 





119 


84 


87 


81 


65446 


119 





255 


2 


114 


34 


65452 


34 


34 


34 


2 


240 


142 


65458 


129 


129 


241 


143 


129 


129 


65464 


1 


2 


4 


8 


16 


48 


65470 


120 


252 


5 


6 


225 


64 


65476 


225 


255 


255 





201 


9 


65482 


49 


193 


225 


241 


243 


7 


65488 


248 


240 


240 


224 


224 


192 


65494 


192 


128 


1 


2 


4 


8 


65500 


17 


38 


72 


156 


255 


1 


65506 


249 


253 


61 


29 


157 


29 


65512 


255 


255 


254 


254 


252 


252 


655 IS 


248 


248 


60 


66 


66 


66 


65524 


90 


90 


90 


255 


56 


12 


65530 


56 


108 


108 


56 


96 


56 



CHkay, die Arbeitist über- 
standen, und nun kann 
das Spiel beginnen! 



46 



Computronic 



Ausschnittkopierer 



ZX-Spectrum: , 



Mit dieser MC-Routine ist es mit dem 16/48 KByte Spectrum möglich, 
einen vom Benutzer begrenzten Teilbereich eines Basicprogramms 
abzuspeichern ohne das Programm zu verändern. 



Jeder, der auf dem Spectrum schon einmal 
mit Pascal programmiert hat, wird den Vor- 
teit zu schätzen wissen, daß es im Hisoft 
Pascal möglich ist, nur einen bestimmten 
Programmbereich abzuspeichern, anstatt 
immer das ganze Programm sichern zu 
müssen. Dieses ist vor allem dann von Vor- 
teil, wenn man z. B. längere mathemati- 
sche Formeln, die bereits in einem beste- 
henden Programm verwendet wurden, in 
ein neues Programm einbauen will. Vorher 
mußten die Zeilen, die die Formel ein- 
schließen gelöscht oder die Formeln selbst 
abgetippt werden. Diesem Zustand schafft 
die folgende MC-Routine Abhilfe. Dieses 
ermöglicht es, vom Benutzer begrenzte 
Programmblöcke zu sichern ohne das ge- 
samte Basicprogramm zu verändern. 
Nach Eingabe des Basicprogramms müs- 
sen Sie sich eine Startadresse überlegen 



und schützen diesen Bereich durch Einga- 
be von CLEAR Startadresse-1 (z. B. 
CLEAR 64999). Anschließend geben Sie 
RUN ein, und das Programm fragt Sie nach 
der Startadresse, ab der das Programm in 
den Speicher gepoket werden soll. Am En- 
de jeder Dataliste befindet sich eine 
Checksumme. Haben Sie Eingabefehler 
begangen, so wird die entsprechende DA- 
TA-Zeüe angezeigt, worauf Sie den Fehler 
beheben und das Programm neu starten 
müssen. Andernfalls wird jede Zeile mit ei- 
nem O.K. abgeschlossen und es. erscheint 
die Meldung „Start the tape . . .", worauf 
Code und Basicprogramm abgespeichert 
werden können. 

Der Code kann nun zu dem Programm, aus 
dem man einen Ausschnitt abspeichern 
möchte, hinzugeladen werden, nachdem 
man den entsprechenden Bereich durch 



ein CLEAR geschützt hat. Er wird in fol- 
gender Weise aufgerufen: 
RANDOMIZE USR Startadresse: DATA 
erste abzuspeichernde Zeile, letzte abzu- 
speichernde Zeile, worauf am oberen Bild- 
schirmrand „Programmausschnittkopie- 
rer" und „Start the tape ..." erscheint und 
der gewünschte Bereich auf Band unter 
dem Namen „PARTCOPY" gesichert wer- 
den kann. 
Beispiel: 

RANDOMIZE USR 65000: DATA 30,100 
würde den Bereich zwischen Zeile 30 und 
100 (einschließlich Zeile 30 und 100) ab- 
speichern. Existiert eine der abgegebenen 
Zeilennummern nicht, so wählt das Pro- 
gramm die nächstgrößere aus. Wird eine 
Zeilennummer angegeben, die größer als 
die letzte existierende ist, so erscheint Feh- 
lermeldung 8 End of file. 



i 

2 

3 

4 

5 

10 

20 

30 



REM * Ausschnittkopierer * 
REM **** Version 1.0 **** 
REM *** Copyright 1985 *** 
REM 



REM 
DEF 
DEF 
CLS 

1 ; start 
40 LET 
50 LET 



** by Oliver Thimm ** 
** 30OO Hannover 91 ** 
FN a<x>=INT (m/256) 
FN b <x)=<x-256*FN a<x>> 
s INPUT "Startadresse ? 



60 
70 

SO 

90 



LET 
LET 

LET 
LET 



x— start+96 
a=FN b<x) : 

X=X+2 

c=FN b <x > : 
e=FN b<x) s 



LET b=FN a(x 



LET d=FN a(x 



LET -F=FN a(x 



> 



lOO LET x=start: LET sum=0 

HO FOR n=5GO TQ 590 STEP 10s 
ESTORE n 

120 FOR m=0 TO 14 

130 READ byte: PDKE x+m,byte: 
ET sum=sum+byte 

140 NEXT m 



R 



ISO READ tot: IF totOsum THEN 
BEEP .5,10: FRINT "Error in Line 
";n: STOP 

160 FRINT "Line ";n;" O.K" 
170 LET sum=Os LET x=x+15: NEXT 

n 

ISO SAVE "TeilesaveCODE "CODE s 
tart ,150s SAVE "Teilesaver" 

190 CLS : PRINT "Band fuer ' VER 
IFY* zurueck spulen" 

200 VERIFY ""CODE : VERIFY "/• 

210 CLS : PRINT "Solle z.B. die 

Zeilen 100-210 dieses Program 
ms gesaved wer den, so geben Sie -f 
olgendes eins": PRINT s PRINT "R 
ANDOMIZE USR " 5 start ;": DATA lOO, 
210": STOP 

500 DATA 231,231,205,251,36,205 
,162,45,197,231,231,205,251,36,2 
05 , 2722 

510 DATA 162,45,209,197,213,225 
,205,110,25,193,229,197,225,205, 
110,2550 

520 DATA 25,35,35,78,35,70,35,3 
5,237,74,229,237,75,75,92,1367 
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530 DATA 43, 43, 237, 66, 242, a,b, 2 
25,209,213,237,82,229,205,107,21 
38+a+b 

540 DATA 13, 62, 2, 205,1, 22, t7,e, 
■f , 1 ,29,0,205,60,32,649+e-t-F 

550 DATA 209,225, 221, 33, c t d, 221 
,115,11,221,114,12,221,115,15,17 
33+c+d 



560 DATA 221,114,16,195,112,9,2 
07,7,0,80,65,82,84,67,79, 1338 

570 DATA 80,89,32,32,218,3,0,12 
cl,^.lö,iS, 3z , S^. , 32 , SO , 82 , 1 06 1 

580 DATA 79,71,82,65,77,77,65,8 
5 , 83 , 83 , 67 , 72 , 78 , 73 , 84 , 1 14 1 

590 DATA 84,75,79,80,73,69,82,6 
9, 82, 0,0,0,0,0,0, 693 



PAG-BOY für den Apple II+/HE/IIC 



Versuchen Sie, alle Punkte aufzufressen. 
Aber Vorsicht; Das PAC-Monster ver- 
sucht, Sie daran zu hindern. Keine Angst! 
Sie können die Super PAC-Pille auffressen, 
dann besitzen Sie für einige Zeit die Kraft, 
das Monster zu versteinern. 

Steuerung: 

I = OßEN J = LINKS K= RECHTS 

M = UNTEN 

Eintippen: 

Tippen Sie erst Listing 1 ein, und speichern 
Sie es auf Diskette ab. Speichern Sie das 
zweite Programm mit SAVE PAC-BOY ab. 



„Unsere Abbildung 
zeigt PAC-BOY nach er- 
folgreich überstande- 
nem Kampf gegen das 
grausame Monster. Die 
Strapazen sind ihm ja 
noch deutlich anzuse- 
hen, aber allem An- 
schein nach sind PAC- 
BOY auch die Super- 
Pac-Pillen ein wenig auf 
den Magen geschlagen! 
Aber das weiß ja jeder: 
Allzuviel ist ungesund!" 



Listing - Teil eins 



1 HGR2 : HCOLOR= 3 

2 HPLOT 40, 3ö TD 40,10 TU 50,10 TD 

50,20 TO 40,20 

3 HPLOT 60,30 TO 60,10 TO 70,10 TO 

70,30: HPLOT 60,20 TO 70,20 

4 HPLOT 90,10 TO S0,1Ö TO SO, 30 TO 

90,30: HPLOT 100,20 TO 110,2 
O 

5 HPLOT 120,10 TO 130,10 TO 130, 

30 TO 120,30 TO 120,10: HPLOT 
120,20 TO 130,20 

6 HPLOT 140,10 TO 150,10 TO 150, 

30 TO 140,30 TO 140,10 

7 HPLOT 160,10 TO 160,20 TO 170, 

20 TO 170, 10: HPLOT 165,20 TO 
1 65 , 30 
S HPLOT 6O,40 TO 65,40 TD 65,50 TO 
60,50 TO 60,40: HPLOT 60,45 TO 
65,45 

9 HPLOT 70,45 TO 70,50 TO 75, SO TO 

75,45: HPLOT 72,50 TO 72,55 

10 HPLOT 90,50 TD 90,60 TO 95,60 

TO 95,50 TO 90,50: HPLOT *?5 
,55 TO 90,55 




11 



12 



13 



14 



15 



HPLOT 100,60 TO 

,50 TO 105,60: 

105,55 
HPLOT 110,60 TO 

,60 TO 115,50 
HPLOT 120,60 TO 

,50 TO 125,60: 

125-55 
HPLOT 130,60 .TO 

,60 TO 135,50 
HPLOT 140,60 TO 

,50 TO 145,60: 

1 T"S M 33 



100,50 TO 105 
HPLOT 100,55 TO 

HO, 50 TO 115 

120,50 TO 125 
HPLOT 120,55 TO 

130,50.10 135 

140, SO TO 145 
HPLOT 140,55 TO 



*1I3 



^fl** 6 



16 



17 



18 



19 






21 

22 

23 
24 

25 
26 

27 



28 



29 



30 

31 
32 



HPLOT 70,70 TD 80,70 TO 80,80 
TO 70,80 TO 70,70: HPLOT 77 

,72 TD 73,72 TO 73,77 TO 77, 

77 
HPLOT 90,70 TD 90,80: HPLOT 9 

5,70 TO 100,70 TO 100,75 TO 

95,75 TO 95,70: HPLOT 100,75 
TO 100,80 
HPLOT 105,70 TO 110,70 TO HO 

,80 TO 105,80 TQ 105,70: HPLOT 

105,75 TO 110,75 
HPLOT 120,70 TO 115,70 TO 115 

,75 TO 120,75 TO 120,80 TO 1 

15,80 
HPLOT 105,100 TO 110,110 TO 1 

20,115 TO 110,120 TO 105,130 
TO 100,120 TO 90,115 TO 100 

,110 TO 105,100: HPLOT 105,1 

00 TO 105,130: HPLOT 120,115 
TO 90,115 
HPLOT 105,85 TO 105,95= HPLOT 

130,110 TO 125,115 TO 130,12 

O: HPLOT 125,110 TO 125,120 
HPLOT 100,140 TO 100,130 TO 1 

05,135 TO 110,130 TO 110,140 

HPLOT 85, HO TO 85,120 TO SO, 

120 TD 80,115 
HPLOT 50,160 TO 50,180: HPLOT 

60,160 TO 60,180: HPLOT 60,1 

70 TO 50,170: HPLOT 70, 160 TQ 

70,180 
HPLOT 80,160 TO 90,160: HPLOT 

85,160 TO 85,1B0 
HPLOT 110,180 TO 110,160 TO 1 

20,160 TD 120,180: HPLOT 120 

,170 TO 110,170 
HPLOT 130,180 TO 130,160 TO 1 

40,180 TD 140,160: HPLOT 150 

,160 TO 150,170 TO 160,170 TO 

160,160: HPLOT 155,170 TO 15 

5, ISO 
HPLOT 190,160 TO 180,170 TO 1 

90,180: HPLOT 180,160 TO 180 

,180: HPLOT 210,160 TO 200,1 

60 TO 200,180 TO 210,180: HPLOT 

200,170 TO 210,170 
HPLOT 220 , 1 60 TO 220 , 1 70 TO 2 

30,170 TD 230,160: HPLOT 225 

,170 TO 225,180 
HPLOT 40,150 TO 240,150 TO 24 

0,190 TO 40,190 TO 40,150 
BET ZZ*: PRINT ZZ* 
PRINT CHR* (4) "RUN PAC-BOY" 



PAC MAN - Teil zwei 



S = OsL = 3: DIM VA(14,11) 

1 HOME : NORMAL : NOTRACE 
5 GOSUB 6000: BOSUB 10OOO 
10 FDR Y = O TO 11 

15 FOR X = TO 14 

20 READ A:VA(X,Y) = A 

22 IF S > 2230 AND A / 13 = INT 

(A / 13) THEN A = (A / 13) * 
SGN (5 - 4470) :VA(X,Y) = A: 

NE = 1 
25 NEXT X 

27 NEXT Y 

28 IF S > O THEN VA (0,5) - 0:VA( 

1,5) = 30:VA<14,5) = Q:VA<13 

,5) = 70: TB = 1 
30 GOSUB 5000: ROT= O: XDRAW 3 AT 

129,145: XDRAW 2 AT 139,145: 
XDRAW 3 AT 149,145 
32 ROT= O: SCAL£= 1: FOR P = 1 TO 

L: XDRAW 2 AT P * 10 + 119,1 

Os NEXT P 
35 V = 10:DI = 0;D = - 1:A = 139 

:OA = A:B = 64: OB = B: ROT= 

O: XDRAW 3 AT DA, OB 
40 X = 139:Y - 114:R = O 
45 OX = XsQY = Y:RO = Rj ROT= RO: 
XDRAW 2 AT DX,OY 

47 HOME : IF NE = 1 THEN INVERSE 

: VTAB (21): PRINT " NO T 
UNNEL AND NO ENERGIZERS 
" : NORMAL s GOTO 50 

48 HOME : IF TB = 1 THEN INVERSE 

: VTAB (21): PRINT " THE 
TUNNEL IS BLOCKED 
" : NORMAL 
50 VTAB (22): FLASH : PRINT " 
HIT ANY KEY TO START 

"s POKE - 16368,0: WAIT 
- 16384,128: NORMAL 
60 HOME : VTAB (21): PRINT " 

SCORE=" 
lOO FOR T = 1 TO 2 STEP O 
110 K = PEEK < - 16384) 
120 XA = COX - 69) / 10: YA = <0Y - 

24) / 10:PA - VA(XA,YA) 
125 IF K = 201 THEN R = O: IF PA 
/ 2 = INT <PA / 2) THEN Y = 
Y - V 
130 IF K = 205 THEN R = 32: IF P 
A / 5 - INT (PA / 5) THEN Y 
= Y + V 
135 IF K = 202 THEN R = 48: IF P 
A / 7 = INT (PA / 7) THEN X 
= X - V: IF X < 69 THEN X = 
209 
140 IF K = 203 THEN R -■ 16: IF P 
A / 3 = INT <PA / 3) THEN X 



Oomputronic 



49 



KXp^ 



= X + V: IF X > 209 THEN X = 
69 
142 XA = (X - 69) / 10: YA - (Y - 
24) / 10:PA ~ VA(XA,YA) 

145 ROT= RO: XDRAW 2 AT QX,OY: ROT= 
R: XDRAW 2 AT X,Y 

146 OX = X:OY - Y;RO = R 

147 IF (A = X) * (B = Y) * (BF = 
O) THEN GOTO 1000 

150 IF PA > O AND PA / 13 < > INT 
(PA / 13) THEN ROT= O: XDRAW 
1 AT X,Y: POKE 768,96; POKE 
769,3: CALL 770= VA (XA,YA> = 

- PA: DT = DT - 1:S = ■ S + 10 
: VTAB (21): HTAB (20) : PRINT 
5: IF DT ~ O THEN GOTO 2000 



152 IF SF 



1 THEN ROT= 



RETURN 



155 



200 

205 
207 
210 

215 
220 

230 
240 

250 

255 
260 

265 
270 

275 

280 
285 



290 

295 
300 



IF PA > O AND PA / 13 = INT 

(PA / 13) THEN ROT= O: XDRAW 

4 AT X,Y: FOR P = 10 TO 1 STEP 
- 1: POKE 768, P: POKE 769,3 

s CALL 770: NEXT P:VA(XA,YA) 
= - PA: GOSUB 600 
GH = VA((OA - 69) / 10, (OB - 

24) / 10) 
D = - D=DI = O 

IF (Y - B) THEN GOTO 215 

IF D < O OR (X = A) THEN GOTO 

255 

IF (X > A) THEN GOTD 240 

IF GH / 7 = INT <GH / 7) THEN 

A = A - V: GOTO 320 

GOTO 250 

IF GH / 3 = INT (GH / 3) THEN 

A = A + V: GOTO 320 
DI = DI + iiD - - ls IF DI = 

2 THEN GOTO 285 

IF Y > B THEN GOTO 270 

IF GH / 2 « INT (GH / 2) THEN 

B = B - V: GOTO 320 

GOTO 275 

IF GH / 5 = INT (GH / 5) THEN 

B = B + V: GOTO 320 
DI = DI + lsD = ls IF DI = 2 THEN 
GOTO 285 

GOTO 215 

IF (X - A) 

(Y - B) * 
GOTO 3O0 

IF GH / 7 = INT (GH / 7) THEN 

A=A-V:D=1: GOTO 320 
A - A + V:D =1; GOTO 320 

IF GH / 2 = INT (GH / 2) THEN 

B = B - V:D = -ls GOTO 320 



* SGN (X - A) > 
SGN (Y - B) THEN 



305 B=B+V:D=-i 

320 IFA > 209 THEN A = 69 

323 IF A < 69 THEN A - 209 

325 ROT= O: XDRAW 3 AT OA,OB: XDRAW 
3 AT A,B: IF (A = X) * (B = 
Y> THEN GOTO 1O0O 

330 DA = As OB = B 

400 NEXT T 

600 SF = ls ROT= O: XDRAW 3 AT 12 

9,145: XDRAW 2 AT 139,145: XDRAW 
3 AT 149,145: XDRAW 2 AT 129 
,145: XDRAW 3 AT 139,145: XDRAW 

2 AT 149,145 
610 FOR Z = 1 TO 15 

620 GOSUB 110: IF (X = A) * (Y = 
B) THEN GOSUB 800: GOTO 700 

P = INT ( RND (1) * 3) 
GH = VA(<OA - 69) / 10, (OB - 
24) / 10) 

IF P = 2 AND GH / 5 = INT ( 
GH / 5) THEN B = B + V 
IF P = O AND GH / 2 = INT ( 
GH / 2) THEN B = B - V 
IFP = 3 AND GH / 7 = INT ( 
GH / 7) THEN A = A - V: IF A 

< 69 THEN A = 209 
IF P - 1 AND GH / 3 = INT ( 
GH / 3) THEN A = A + V: IF A 

> 209 THEN A - 209 
ROT= O: XDRAW 3 AT DA, AB 

3 AT A,B:OA = A:OB = B 
IF (X = A) * <Y = B) 
8O0 



630 
635 

640 

650 
660 

670 

680 

690 

700 
710 



XDRAW 



THEN GOSUB 



NEXT Z 

SF = O: 

9,145: 



ROT= O: XDRAW 2 AT 12 
XDRAW 3 AT 139,145: XDRAW 

2 AT 149,145: XDRAW 3 AT 129 
,145: XDRAW 2 AT 139,145: XDRAW 

3 AT 149,145 

715 FOR P = 1 TO 15: Z = PEEK ( - 
16336) : NEXT P 

720 RETURN 

SOO XDRAW 3 AT A,B:A = 139= B = 6 
4:0A = A:OB = B: FOR P = 1 TD 
5: PRINT CHR* (7) : : NEXT P: 
Z = 15: XDRAW 3 AT OA,OB:B - 
S + lOO: VTAB (21): HTAB (20 
) : PRINT S: RETURN 

1000 ROT= Rs XDRAW 2 AT X,Y: SCALE= 
2: FOR R=OTO 128 STEP 8: ROT= 
R: XDRAW 2 AT X,Y:D = PEEK 
( - 16336): NEXT R: POKE - 
16368, O: HOME : VTAB (21): HTAB 
(15): PRINT "SCORE= ":S 

1005 XDRAW 2 AT X,Y= ROT= O: SCALE= 



SO 



Computronic 



1: XDRAW 3 AT A,B: XDRAW 2 AT 
L * iO + 119,10:L = L - 1: . IF 
L > O THEN 35 
1010 PRINT "DO YOU WANT ANOTHER 

GAME ?'»; : FOR P = 
1 TO 500: NEXT P: PÖKE - 16 
368, O: GET Q*: IF Q* = "¥" THEN 

CLEAR : DIM VA (14, 11) :L ~ 3 
: GOTO 1 
1020 TEXT = HOME : NEW : HOME 
1100 REM *************** 
2000 HOME s VTAB <22) s FLASH : PRINT 
"PERFECT SCORE. WELL DONE 

": FOR P - 1 TO 15:. POKE 
768,16 - P: POKE 769,6: CALL 

IF SF 





770: NEXT P: RESTORE 




= 1 THEN POP 


2005 


SF = 0: GOTD 1 


5000 


HGR 


5002 


FOR Y = TO 11 


5005 


FOR X * TD 14 


SOlO 


A = VA(X,Y) 


5015 


K = 69 + X * 10: V = 




10 


5020 


HCOLOR= 7 


5050 


IF A / 2 < > INT 



= 24 + Y * 



CA / 2) THEN 
HPLOT K - 5,V - 5 TO K + 5, 

V - 5 

5055 IF A / 3 < > INT (A / 3) THEN 
HPLOT K + 5,V - 5 TO K + 5, 

V + 5 

5060 IF A / 5 < > INT (A / 5) THEN 
HPLOT K - 5,V +5TDK+5, 

V + 5 

5065 IF A / 7 < > INT <A / 7) THEN 
HPLOT K - 5,V - 5 TO K - 5, 

V + 5 

5067 IF A > O AND A / 13 = INT 
(A / 13) THEN XDRAW 4 AT K, 
V: GOTO 5400 

5070 IF A > O THEN XDRAW 1 AT K 
,V=DT = DT + 1 

5400 NEXT X 

5410 NEXT Y 

5420 HPLOT 0,0 TO 64,19: HPLOT 2 

79,0 TO 214,19: HPLOT 0,159 TO 
64,139: HPLOT 279,159 TO 214 
,139 

5500 RETURN 

6000 FOR X = 770 TO 792 

6010 READ Y 

6020 POKE X,Y 



6030 NEXT X 

6040 DATA 173,48, 192, 136, 20B, 5, 2 
06,1,3,240,9,202,200,245,174 

,0,3,76,2,3,96,0,0 
6050 RETURN 
10000 H6R2 : POKE 232,16: POKE 2 

33,64 
10005 TEXT 

10010 SCALE= 1: RDT= O 
10020 FOR X = 16400 TO 16460 
10030 READ Y 
10040 POKE X,Y 
10050 NEXT X 
10055 RETURN 
10060 DATA 4,0,10,0,16,0,31,0,51 

,ö 
10O70 DATA 42,36,63,54,21,0 
10030 DATA 18,27,39,36,44,44,9,4 

9,53,54,62,62,63,39,0 
10090 DATA 46,30,46,9,36,39,37,3 

9,39,63,46,62,35,23,46,21,63 

,54,6,0 
10100 DATA 53,30,60,60,12,37,21, 

21,6,0 
200ÖQ DATA 15,21,105,21,105,21,3 

5,0,15,21,105,21,105,21,35 
20010 DATA 10,15,42,35,6,35,30,2 

73,70,15,14,15,42,35,10 
20030 DATA 30,910,0,30,21,210,70 

,0,30,210,21,70,0,390,70 
20040 DATA 10,6,105,14,15,14,30, 

21,70,6,35,6,105,14,10 
20050 DATA 6,35,60,21,210,21,-21 

0,-21,-210,21,210,21,70,15,1 

4 
20060 DATA -21,210,210,21,210,21 

,-70,0,-30,21,210,21,210,210 

20070 DATA 15,14,30,35,6,35,-6,- 
105,-14,15,14,15,70,6,35 

20080 DATA 30,105,14,30,21,210,1 
05,42,105,210,21,70,6,105,70 

20090 DATA 10,30,21,70,15,14,30, 

105,70,6,35,30,21,70,10 
20100 DATA 30,70,0,30,14,195,14, 

-10,6,455,6,70,0,30,70 
20110 DATA 10,6,105,14,15,14,15, 

42,35,6,35,6,105,14,10 
20120 DATA 6,21,42,21,42,21,14,0 

,6,21,42,21,42,21,14 



Auf geht' s! PAC BOY wartet auf seine Bewährungsprobe. 
Keine Angst vor dem Monster! 



Com putronic 



Top-Tennis . ..+ Top-Tennis . . . .+ Top-Tennis . V. + Top-Tennis '. .-.' + 



Eine packende Tennissimulation für Atari 600 (+64k ) und 800 XL 

Um das bundesweite Tennisfieber neu zu entfachen, veröffentlichen wir 
an dieser Stelle ein wirklich realistisches Tennisspiel. Bei dieser Spiel- 
version werden selbst die erfahrensten „Racketschwinger" gefordert, 
was Schlagreportoire, Timing, Ballgeiuhl v Spieltaktik, Spieltechnik 
und Spielwitz betrifft. 

Das Spiel bietet zahlreiche Variationsmög- 
lichkeiten; Volley, Passierschlag, Lob . . . 
etc. Um den Ball zu schlagen, muß man die 
Ballrichtung mit dem Joystick bestimmen 
und dann den Feuerknopf betätigen. Die 
Harte des Schlages hängt von der Ballhöhe 
ab. Wird mit dem Joystick keine Richtung 
angegeben, so spielt man den Ball in Form 
eines Lobs mit Topspin-Effekt. Aufschlag: 
Wenn man den Feuerknopf drückt, wirft 
der Spieler den Ball nach oben, anschlie- 
ßend wird mit dem Joystick die Richtung 
bestimmt und der Feuerknopf noch einmal 
betätigt. Es sind zwei Aufschlaggeschwin- 
digkeiten möglich. Zum besseren Ver- 
ständnis sollte man einfach Practice-Mode 
wählen. 

Um zum Menue zurückzukehren, muß die 
Starttaste vor dem Aufschlag betätigt wer- 
den. Während der Ballwechsel ist eine 
Wartepause möglich, indem man die Spa- 
cetaste drückt Wenn das Spiel fortgesetzt 
werden soll, muß diese Taste erneut ge- 
drückt werden. 




Hier sehen Sie Verleger (links) und Chefredakteur der COMPUTRONIC, die sich entschlos- 
sen haben, die lästigen Gehaltsverhandlungen diesmal bei einer Partie TOP-TENNIS auszu- 
f echten. 



TOPTENNIS: 

Programmaufbau 

Achtung: Top-Tennis ist nur auf 
Cassette lauffähig! Das Pro- 



gramm muß mit dem Befehl 
„CLOAD" gestartet werden! 
Das Hauptprogramm ist in Ma- 
schinensprache geschrieben und 



daher in drei Teile unterglie- 
dert: 1. und 2. Teil - Datazeilen 
3. Teil - Basic-Programm 
Maschinencode - Zeile 301 - 304 



TOP-TENNIS - TEIL EINS 



1 REM COPYRIGHT BERHARD DALLE 1385 

2 REM KKKKliMKKKKKKKKXItKKMMKHKK - ^l t ^ 

3 RE5TORE 4588 : FÜR X = Ö TO 71:READ C : POKE 
22eöö+K,C:MEKT X 

4 FÜR K-& TO 71 : REÜD C : POKE 221 Oß+K T C : NE 
KT K 

5 RESTOßE 

Iß POKE 7ie,^*16:POKE 712 , 3*16 : POKE 752, 

li? CHR^tlÄSJ 

28 PÜ5ITIOH 15,3:? "TOP TENNIS" : POSITION 

17,6s? "BK OS BGi" 

36 POSITION 11,12!? "PLEÖ5E WAIT SO sec , 

■ * 

275 FOR K = TO 2S : READ FG : POKE 20945+X J F 
GsHEXT X 

276 FÜR X = TO 244: READ FG:POKE 2B477+K, 
FGSNEKT H: POSITION 11,12;? " PLEftSE W 
ÖIT 

278 FOR X = ß TO 62 ! READ GFiPOKE 153&+X,GF 

t* *m CI #% I fi 

282 FOR K=8 TÖ 214:REA0 FG:PÖKE 2Q738+K, 



FG;HEKT K 

284 FD« K-& TO 31:READ GFlPOKE i6&4+X,GF 

* Nein I IS 

286 FOR X=8 TO 24: READ FG : POKE 388 + Xj.FGi 

NEKT K 

£98 FOR K-O TO 282 : READ GF;POKE 38B0O+K, 

GFlNEKT K : FOR K~0 TO 3S4 : READ FG;POKE 30 

3QÜ+H, FG : NEKT X 

291 FOR K=Ö TO 44:READ BYTE:POKE 370+K,B 

VTE3NEKT K 

294 FOR K=Ö TO 8S9 : READ FGsPOKE 22288+X, 

FG:NEKT K 

300 FOR K~ß TO 18; READ BYTE : POKE 22088+« 

, BYTE: HEXT K 

310 FOR X=Ü TO 38;»EAD BYTE : POKE 23878+K 

,BYTE:NEXT X 

32fl FOR X = 8 TO 62: READ BVTElPOKE 23SÖÖ+K 

,8YTE:NEKT K 

33Ö FOR X=8 TO 26 : READ FG:POKE 2348B+X,F 

GrNEXT K 

34S FOR X = Ö TO 62 i READ BVTESPOKE 2368B+K 

.BVTEHNEKT X 

350 FÜR X~8 TO 26;READ FG:PÖKE 23438+K^F 



Computronic 



fj^r 



ClMEKT M 

360 FOR X = 8 TO 62sREAD BYTE:PÖKE 23766+H 

( BYTE:HEKT H 

370 FOR K^O TÖ 62: READ BYTE: POKE 23888+K 

,BVTE:NEKT K 

380 FOR H = 8 TO 243: READ BYTE: POKE 24080+ 

K,BYTE!MEXT K 

398 FOR H-Q TO 213: READ BYTE : POKE 243B0+ 

X,BYTE:NEHT K 

4O0 FOR K=8 TO 28: READ BYTE : POKE 2 46ÖÖ+X 

,BYTE:HEXT K 

405 RE5TORE 701B:FOR X = TO 69:READ FG:P 

OKE 25888+H,FG:HEXT K 

466 FOR H-O TÖ ±29 : READ BYTE : POKE 25588+ 

X,BYTE:HEXT X 

-tOS FOR K=8 TO 04 : READ C:POKE 26ß88+K,C: 

HEKT K 

410 POSITION ±±,6:? "HÖH LOÖßING EätlllMS" * 

411 POSITION 5,12:? "PARTS 1,2,3 writte 
n by B.DALLE" 

420 POKE 764,33; A-U5R 4268535 

1196 DATA 28±, 13, 248,7.281, 14,240, 3, 76, ± 

3, 88,96, 9, ±63, 2B5, 145,204, 288, 145,284, 96 

1288 DATA 184, 184, 184, 178, 184, 133, 28S,18 

4,133^284,189,128,2,76,289,81,201,7,248, 

45, 28±, 6,248, 4± 

128S DATA 281,5,246,37,281,18 

1218 DATA 240,124,281,11,248,128,281,9,2 

48,116,168,8,185,0,6,145,284,152,281,8, 2 

48,4,288, 76, 39, 88, 189, 88 

1228 DATO 6,157,8,288,76,241,88,185,88,6 

,281,288,176,246,24,189,82,6,185,1,157,8 

2,6,281,2,248,20,281, 3,248 

1238 DATA 32 , 168, 8 , ±85 , 3 , 6 , 145 , 284 , 152 , 2 

81,3,248,48,288,76,88,88,168,8,185,18,6, 

145,204,152,281,8,248,24 

1248 DATA 288,76,184,88,163,8,157,82,6,1 

68,185,27,6,145,284,152,281,8,248,4,288, 

76,124,88,24,183,88,6,185,4 

1258 DATA 157,88,6,157,8,288,76,241,88,1 

83,88, 6,281,58,14 4,81,24,189,84,6,105,1, 

157,84,6,281,2,248,2 8,281,3 

1268 DATA 248,32,168,8,185,36,6,145,284, 

152, 281,8,248,46,288,76,179,88,168,8,185 

,45,6,145,284,152,281,8,248 

1278 DATA 24,288,76,195,88,163,8,157,84, 

6,168,185,54,6,145,284,152,281,8,248,4,2 

88,76,215,88,56 

1288 DATA 189,88,6,233,4,157,38,6,157,6, 

288,36 

1388 DATA 28,28,62,62,28,28,28,54,6 

1318 DATA 7,119,114,62,58,48,232,132,6 

±328 DATA 7,113,114,62,58,48,48,48,48 

1338 DATA 7,119,114,62,58,48,68,78,128 

1348 DATO 224, 236, 78, ±24, 76, ±2, 63, 65, ±92 

±358 DATA 224,238,78,124,76,12,12,28,12 

1360 DATA 224, 238, 78, ±24, 76, ±2, 68,38,1 

±480 DATA 184,32,44,1,184,184,176,76,38, 

38, 184, 133, 265, 184, 133, 284, ±83, 128, 2, 281 

,6,248,23,281,18,248 

1418 DATA 13,281,14,248,15,281,13,240,32 

,281,9,248,88,281,5,248,84,76,199, 81 

1428 DATA 189,72,6,221,245,88,248,70,183 

,64, 6, 24, ±85, ±,±57, 64,6,291,3,248 



±438 DATA 28 , 281 , 4 , 248 , 18 , 168 , 8 , 185 , 128 , 
6, 145,284,152,281,16,248,32,288,76,67 
1440 DATA 81,168,0,185,144,6,145,264,152 

,2 81,16,248,4,288,76,83,81,189,64,6 
±445 DATA 201,4,288,5,163,8,157,64,6,56, 
±89,72,6,233,1,157,72,6, 76,199 
±450 DATA 81,183,72,6,221,247,86,248,245 

, 183 , 64 , 6 , 24 , 185 , 1,157,64,6,281,3 

1468 DATA 248,28,281,4,248,16,168,0,185, 

128, 6, 145, 284, 152, 2 01, ±6, 248, 32, 288, 76 

1488 DATA 148,81,168,0,185,144,6,145,204 

,152,281,16, 248,4,200,76,164,81,189,64 

1498 DATA 6,281,4,288,5,163,8,157,64,6,2 

4, 189, 72, 6, 185, ±,±57, 72,6 

1495 DATA 24 , ±65 , 264 , ±85 , 3 , ±33 , 204 , 76 , 7 , 

88 

1586 DATA 0,8,6,8,14,14,31,38,14,2,2,8,8 

,8,8,8 

1518 DATA 8,8,8,8,14,14,31,15,14,8,8,8,0 

,8,0,8 

±520 DATA 173,72,6,178,163,8,157,254,153 

,157, 8,154, 173, 73, 6, ±78, 169, 8, 157,126, ±5 

4,157, 136,154,36 

1536 DATA 184,24,173,74,1,281,158,176,18 

, ±73, ±81, 3, ±69, 74, 1,141, 181,3, ±4±, 2 

±540 DATA 288,141,3,208,76,33,117,56,173 

,74,1,233,158,141,112,1,173,181,3,237 

1558 DATA 112,1,141,181,3,141,2,288,141, 

3,268,173,77,1,170,168,8,185,34,1 

1566 DATA 157,8,155,232,288,192,9,240,3, 

76,±05,±i7,±73,78,±,178,±68,0,±85,94 

±578 DATA 1,157,123,155,232,200,192,16,2 

40,3,76, 126,117,173, 75,1,24,281,158,176 

1588 DATA ±2 , ±73 , 77 , ± , ±83 , 75 , 1 , i 41 , 77 , 1 , 

76, ±73, 117, 56, ±73, 75,1, 233, ±58, ±41 

1530 DATA 112,1,173,77,1,237,112,1,141,7 

7, 1,5 6,17 3,76, 1,2 37,111,1, 16,53 

1591 DATA 56,173,111,1,237,76,1,205,108, 

1,144,86, 24,173,116,1,281, 150,176,12 

1532 DATA 173,78,1,169,118,1,141,78,1,76 

, 72,118,173,110,1,56,233,158,141,112 

±533 DATA 1 , ±73 , 78 , 1 , 237 , ±12 , 1 , 141 , 78 , ± , 

76,72,118,238, 111,1,173,109,1,24 

1534 DATA 201,158,176,12,173,76,1,103,18 
3,1,141,78,1,76,72,118,56,173,183, 1 

1535 DATA 233 , 156 , 141 , 112 , 1 , ±73 , 78 , 1 , 56 , 
23 7,112,1,141,78,1,76,72,118, 238,111 
1596 DATA 1 , ±73, 75 , 1, 24, 281 , 158, ±76 , ±3 , ± 
73, 78, .1,24, 189, 75, 1, 141,78, 1, 76 

1537 DATA 72,118,56,173,75,1,233,156,141 
,112,1 , 173,78,1,237,112, 1,141, 78,1 

1538 DATA 76,185,86 

1680 DATA 104,173,888,881,281,888,288,81 

2, 173, 132, 8 O 2, 261, 066, 268, 057, ±63, 80 8,23 

4,234,234 

1618 DATA 166,868,173,672,806,178,824,17 

3,888,801,281,803,176,041,173,101,083,2 8 

5, 880,086 

1626 DATA 176,015,185,123,881,157,255,15 

3,232,288,192,803,246,838,876,134,118,18 

5,114,881 

1638 DATA 157,255,153,232,288,132,818,24 

6, 883, 876, ±49, ±±8,876, 693, 128, 824, 173,88 

8,801,281 
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164B DATA 085,176,838.173,101,603,205,08 

8,006,176,015,185,141,881,157,255,151,23 
2,200,152 

1658 DATA 018,2 48,0*3,076,183,118,185,13 

2,081,lS7,255,153,232,2Öfl,192,ÖÖ*,240,03 

4,076,193 

1660 ftÖTü 1X8,024,173,080,001,201,007,17 

6, BIS, 185, 158, OOl, 1S7, 255, 153, 232 , 2Ö0, 13 

2,889,248 

1678 DÜTÖ 811,876,221,118,169,888,141,88 

8,881,876,833,128,238,888.081,173,882,88 

1,281,881 

1688 DATA 248,166,173,873,881,281,882,28 

8,883,876,834,128,173,872,086,824,205,87 

7,081,176 

1698 DATA 224,173,877,881,856,237,872,88 

6,024,281,887,176,212,056,173,888,886,23 

7,181,883 

1788 DATA 816,815,856,173,181,003,237,88 

8,886,824,281,812,176,131,076,858,119,82 

4, 281, 812 

1718 DATA 176,183,856,173,877,881,237,87 

8, 081,824, 201, 812, 176, 827, 169, 881, 141, 88 

2,081,163 

1720 DATA 888,14.1,883,881,141,898,881,14 

1,088,218,163, 810,832,864, 886, 141,881,21 

8,076,188 

1738 DATA 119,876,893,128,173,120,882,28 

1,086,288,888,169,883,141,874,801,876,18 

9,113.281 

1748 DATA 887,288,888,163,882,141,874,00 

1,876,189,113,281,885,288,888,163,881,14 
1,074,881 

1758 DATA 876,189,119,281,818,288,088,16 
9,153,141,874,881,876,189,119,281,811,28 
8, 088, 163 

1768 DATA 152,141,874,881,076,189,113,28 

1,889,208,088,169,151,141,074,881,876,18 
9,119,201 

1778 DATA 815,288,085,163,081,141,890,88 
1, 169,888,141,874,001,856,173,077,001,23 
7,878,881 

1788 DATA 281,812,288,005,162,000,876,03 
2,128,201,811,288,085,162,886,876,832,12 
8,281,018 

1798 DATA 288,885,162,012,076,832,120,28 

1,889,288,885,162,818,876,832,128,281,88 

S, 288, 885 

1888 DATA 162,824,876,832,128,281,887,28 

8,885,162,830,076,032,120,201,086,208,88 

5,162,836 

1810 DATA 876,832,120,201,005,208,805,16 

2,042,876,832,128,281,884,288,885,162,84 

8,876,832 

1828 DATA 128,281,883,288,885,162,054,87 
6,832,120,162,860,189,248,085,141,876,80 
1,232,183 

1838 DATA 248,885,141,103,001,232,183,24 

8,085,141,110,881,232,189,240,085,141,10 

8,301,232 

1849 DATA 189,240,885,141,831,801,232,18 
9,248,885,141,875,881,173,898,881,281,00 
1, 248, OÖ3 

1858 DATA 876,893,120,162,866,169,080,14 
1,898,881,876,832,128,036,173,877,881,82 



4, 285', 072 

1868 DATA 886,176,246,173,872,806,856,23 

7,077,881,824,281,887,176,234,056,173,08 
0,006,237 

1870 DATA 181,003,016,815,056,173,181,00 

3 „237, 880, 086, 824, 201, 012,176, 213, 076, 14 
4,128,024 

1880 DATA 201,012,176,205,856,173,877,88 
1,237,878,881,824,281,812,176,827,169,00 
1,141,882 

1898 DATA 881,163,888,141,883,881,141,89 
8,801,141,088,210,163,818,832,864,886,14 
1,801,218 

1988 DATA 076,186,128,876,033,120,173,12 
8, 082,281,806,288,888,163,881,141,074,08 
1, 876, 819 

1910 DATA 121,281,887,288,888,1697882,14 

1,874,881,076,813,121,201,085,288,888,16 
9,883,141 ■ 

1928 DATA 874,881,876,019,121,201,810,20 

6,883, 163, 151, 141, 074, 801, 876, 819, 121, 28 

1,811,288 

1938 DATA 888,163,152,141,874,801,076,01 

9,121,281,009,288,008,169,153,141,874,80 

1,076,819 

1948 DATA 121,281,015,288,885,169,881,14 
1,890,881,169,888,141,874,881,856,173,07 
7,801,237 

1958 DATA 878,881,281,812,208,085,162,80 

0,876,118,121,281,811,208, 885,162,006, 07 

6,118,121 

1368 DATA 201,810,208,005,162,812,876,11 

8,121,201,009,208,885,162,818,876,118,12 

1,281,888 

1976 DATA 288,885,162,824,876,118,121,20 

1,007,208,885,162,838,876,118, 121,281,88 

6,288,865 

1386 DATA 162,836,876,118,121,281,885,28 

8,085, 162,842,876,118,121,281,884,288,88 

5,162,848 

1398 DATA 876,118,121,201,883,288,885,16 

2,654, 876,118,121,162,868,189,884,886, 14 

1,876,881 

2008 DATA 232,189,884,886,141,109,801,23 

2, 189,884, OÖ6, 141,118,861, 2 32,183,084,08 

6,141,108 

2818 DATA 881,232,189,084,886,141,891,88 

1,232,189, 884,886,141,075,881,173,030,00 

1,201,081 

2028 DATA 248,003,876,093,120,162,866,16 

9,080,141,838,881,076,118,121 

2038 DATA 112,113,39,128,112,112,88,136, 

148,14,238,228,38,14, 14,26,17,43 

2848 DATA 112,112,32,112,112,112,88,136, 

140,14,14,4,14,14,14,26,17,49 

2845 DATA 28,28,8,62,62,28,20,28,54 

2858 DATA 184,173,081,001,281,800,288,01 

2,173,133,082,201,888,288,857,163,880,23 

4,234,234 

2060 DATA 160,008,173,873,886,170,824,17 

3, 081, 881, 261, 883, 17«, 841, 173,1.81,003,28 
5, 881, 886 

2878 DATA 176 , 015 , 185 , 123 , 801 , 15? , 127 , 15 

4, 232, 280, 192, 889, 248.. 898, 876, 226 , 836 , 18 
5,114,881 
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2Ö8Ö DATA 157..i£? I i54,232,2eö J i92.ÖÖ3,24 

0,083,076,241,086,076,105,080,024,173.88 

1,001,281 

2098 DATA 005,176,038,173,101,003,205,83 

1,006,176,015,185,141,001,157,127,154,23 

2,280,192 

21O0 DATA 809,240,049,076,019.087,185,13 

2,081,157,127,154, 232 , 280, 192, 889, 240 ,83 

4,076,834 

2110 DATA 087,824,173,081,001,201,007,17 

6,015,185,158,081, 157,127, 154,232, 200, 19 

2, 009,248 

2128 DATA 011, 876, 057,087, 169,060,141, 88 

1,801, 076,185, 886,23», Ö81, 801, 173, 083, 80 

1,201,801 

2130 DATA 240,166,173,879,881,201,002,24 

0, 803,876,133,088, 173,873,006,824,205,07 

7, 881 , 176 

2148 DATO 224, 173, 877, 081, OS6, 237, 673, 08 

6 , 824 , 201 , 087 , 176 , 212 , 056 , 173 , 981 , 006 , 23 

7,181,083 

2158 DATA 016,815,056,173,181,003,237,00 

1,886, 824, 2 81,086,176,191, 676,158,887,02 

4,281,886 

2168 DATA 176.183,856,173,877,881,237,07 

8, 801, 824, 201, 012, 176, Ö27, 169, 881, 141, 88 

3,001,169 

2170 DATA 080, 141, 062, 881,141, 898, 881, 14 

1,808,218,169,010,832,064,886,141,801,21 

8,876,192 

2188 DATA 037,876,165,088,173,121,082,28 

1, 886, 288, OOS, 169,883, 141.874, 881, 87 6, 82 

5,888,201 

2198 DATA 887,208,803,169,082,141,874,0» 

1,076, 825, 838,281,885,208,808,169,081,14 

1,874,001 

2208 DATA 876,025, 888, 201,010, 208; 888,16 

9, 153 , 141,874, 681, 876, 025, 888, 281, 811,28 

s , ms, res 

2210 DATA 152,141,074,801,076,025,088,28 

1,009,208,008,169,151,141,874,881,076,02 

5,883,281 

2228 DATA 815,288,885,169,001,141,090,00 

1, 169, 080, 141,674,001, 856, 173, 077, 881,23 

7,878,801 

2238 DATA 201,812,288,805,162,000,076,12 

4,883,281,011,208,085,162,006,876,124,00 

8,281,018 

2248 DATA 288,885,162,012,076,124,083,20 

1,889,283, 805,162,818,876,124,068,281,00 

8, 208, 885 

2250 DATA 162,824,076,124,833,281,807,28 

8,885,162,038,076,124,888,281,886,208,00 

5, 162, 036 

2268 DATA 076,124,888,281,805,288,885,16 

2 , 842 , 676 , 124 , 888, 281 , 004 , 208 , 005 , 162 , 04 

8,876,124 

2270 DATA 038,281,003,288,805,162,054,07 

6,124,083,162,068, 189 , 240 , 085 , 141 , 076 , OO 

1,232,139 

2238 DATA 240,835,141,109,081,232,189,24 

0,085,141,110,001,232,189,2 40,885,141,10 

3,001,232 

2290 DATA 189,240,885,141,891,001,232,18 

9,240,085,141,875,001,173,890,001,281,08 



1,240,803 

2380 DATA 076,135,088,162,066,169,008,14 

1,090,881,076,124,088,076,017,890,173,87 

7,801,024 

2310 DATA 205,073,006,176,244,173,873,00 

6,056,237,877,801,824,201,887,176,232,85 

5,173,081 

2328 DATA 806,237,181,003,016,815,856,17 

3, 161, 003, 2 37, 031, 886 , 024 , 201 , 8 86 , 176 , 21 

1,876,238 

2338 DATA 068,024,201,806,176,203,856,17 

3,877,881, 237,073,001,024,201,812,176,02 

7,169,081 

2348 DATA 141 , OS3 , 881 , 169 , 888 , 141 , 882, OO 

1,141,098,801,141,008,218,169,018,832,06 

4,886,141 

23SO DATA 001,210,076,024,839,076,185,08 

3,173,121,002,201,806,208,808,169,081,14 

1,074,001 

2368 DATA 076,113,089,201,007,208,808,16 

9,802,141,074,001,076,113,039,201,005,20 

8, 083, 169 

2370 DATA 003,141,074,001,876,113,089,20 

1,010,208,003,169,151,141,074,001,876,11 

3,089,201 

2380 DATA 011,203,008,169,152,141,074,00 

1,076,113,089,201,809,208,808,169,153,14 

1,074,001 

2398 DATA 876,113,089,281,015,288,005,16 

9,001,141,090,881,169,080,141,074,001,05 

6,173,077 

2460 DATA 001,237,078,001,201,012,208,00 

5,162,000,076,212,039,201,011,208,005,16 

2,006,076 

2410 DATA 212,089,201,010,208,005,162,01 

2,076,212,039,201,089,208,805,162,013,07 

6,212,089 

2428 DATA 201,008,288,005,162,024,076,21 

2,039,201,007,203,805,162,038,076,212,03 

9,281,006 

2430 DATA 203,005,162,036,876,212,039,20 

1,005,203,005,162,042,076,212,839,201,00 

4,203,005 

2440 DATA 162,048,076,212,089,201,003,20 

3,005,162,854,076,212,889, 162,060,189,83 

4,886,141 

2450 DATA 076,801,232,169,084,086,141,10 

9,081,232,189,084,086,141, 118,801,232,18 

9,084,086 

2460 DATA 141,108,801,232,139,084,086,14 

1,091,001,232,139,084,836,141,075,801,17 

3,898,001 

2470 DATA 281,001,240,803,076,185,088,16 

2,066,169,880,141,090,001,076,212,039,07 

6,893,118 

2480 DATA 141,0,210,169,0,141,111,1,169, 

18,96 

25O0 DATA 224,8,286,12,173,80,1,281,0,24 

0,17,104,104,76,241,30,173,81,1,281,8,24 

O, 5, 184, 184 

2510 DATA 76,241,86,76,4,81 

2528 DATA 104,174,872,006,160,008,173,11 

3, 001,281, 800, 288, 815, 185, 104,091,157,25 

5, 153,232 



Computronic 



55 



fitffr 



2530 DATA 268,3.32, 099,208 ,2*4,076,007, Q9 

2,201,001,208,015,185,113,091,157,255,15 

3,232,280 

2540 DATA 192,009,208,244,076,007,092,18 

S, 122, 091, 157, 255, 153, 232,200, 192,089,28 

8,244,238 

2550 DATA 113,001,096 

2560 DATA 56, 56,144, ±24, 58, 59, 43, 72, 216, 

3,3,57,57,146,124,56,104,200,14,14,4,62, 

22,102,102,5,5 

2600 DATA 104,174,072,006,160,000,173,11 

3, OOl , 201, OÖO, 208, 015, 185, 134,031 , 157, 25 

5,153,232 

2610 »ATA 200,192,009,208,244,076,107,83 

2,201,001,288, 015,185,14.3,0 91,157,255,15 

3,232,200 

2629 BftTÜ 132,089,208,244,076,107,032,18 
5,152,891, 157, 255, 153, 232, 200,192,089,20 
8,244,238 

2630 DATA 113,001,036 

2640 DATA 028,028,003,062,220,220,020,01 

8,027,192,132,156,156,073,062,028,030,81 

9,115,115 

2650 DATA 036,120,112,112,120,072,108 

2700 DATA 104,174,073,006,160,000,173,11 

3, 001,201, OOO, 208, 615, 185, 104,091 , 157 , 12 

7,154,232 

2710 DATA 200,192,009,208,244,076,207,63 

2, 20i, 881, 288, 015, 185, 113,091, 157,127,15 

4,232,208 

2728 DATA 132,003,208,244,076,207,632,18 

5,122,831,157, 127, 154, 232,2 80, 132,009,20 

8,244,238 

2730 DATA 113,801,036 

27SO DATA 184 , 174 , 073 , 006 , ISO , ©00 , 173 , 11 

3,001,201,000,2 08,015,185,134,091, 1S7, 12 

7,154,2 32 

276Ö DATA 288 , 132 , O03 , 268 , 244 , »76 , 851 , 03 

3,201,001,208,815,185, 143, 091,157,127,15 

4,232,20Q 

277Ö »ftTfl .1 ?2 . 009 , £Hfl , 244 , 87S, 85.1, 6 :?3 . 18 

5, 152, 931, 157, 127, 154, 2 32, 200,132, 003, 2ü 
8,244,238 

27BO DATA 113,001,036 

2888 DATA 104, 173,075,001, 205, 187,001, 24 

0,005,163,000,141,087,081,163,860,234.23 
4,234,173 

2801 DATA 082,001,141,107,001,173,252,00 

2,201,033,208,031,169,255,141,252,082,16 
0,000,162 

2802 DATA 008,232,224,250,208,251,200,13 
2, 028, 288, 244, 173, 252, 002,201, 033, 288,24 
9,169,255 

2863 DATA 141,252,002,024,173,078,601.20 

5,077,081,176,003,076,172,094.173,087^08 
1,201,001 

2864 »ATA 208,008,169,683,141,086,001,07 
6, 172, 094, 238 , 88 7 , 001 , 169 , 017 , 141 . OOO, 21 
0,169,069 

2805 »ATA 141,001,210,173,887,203,201,80 

0,208,008,169,001,141,086,001,076,172,89 
4,173,093 

2886 DfiTA 001,201,801,240,050,201,002,24 

0,046,201,003,240,042,281,004,240,038,17 
3, 075,001 



2807 DATA 024,281,140,176,013,163,067,02 
4,205,077,001,178,083,076,149,094,169,00 
2,141,066 

2808 DATA 001,076,172,094,024,173,077,00 

1,201,064,176,240,076,149,094,173,075,00 
1,024,201 

2809 DATA 140,176,819,024,173,077,001,20 
1,081,176,003,076,149,094,169,081,141,08 
6,001,076 

2810 DATA 172,894,024,169,049,285,077,00 
1,176,240,076,149,094,173, 077,001,056,23 
3,081,141 

2811 DATA 878,001,163,000,141,111,001,14 
1,093,001,173,091,001,141,076,001,169,00 
8,141,030 

2812 DATA 208,076,049,117 

28SO DATA 104,163,080,141,001,210,024,17 
3,077,001,201,100,176,024,169,030,285,07 
7,881,176 

2868 DATA 017,173,101,003,201,195,176,01 
0,169,050,205,101,003,176,803,076,826,09 
5,169,807 

2870 DATA 141,086,001,076,131,095,173,07 

5,001,201,002,240,012,201,003,240,022,28 

1,152,240 

2880 DATA 036,201,153,240,046,173,077,00 

1,201,066,240,057,201,067,240,053,076,19 

1,095,173 

2890 DATA 077,001,201,066,240,043,201,06 

7,240,839,201,068,240,035,076,191,095,17 

3,077,001 

2388 DATA 201,065,240,025,201,064,240,02 
1,076,191,095,173,077,001,281,065,240,01 
1,201,064 

2910 DATA 240,007,201,063,240,003,076,19 
1,095,056,173,077,001,237,078,001,141,11 
2,081,024 

2920 DATA 169,004,205,112,001,176,003,07 
6,191,095,173,112,001,201,004,208,049,02 
4,173,010 

2930 DATA 210,201,200,176,008,169,004,14 

1,086,001,076,131,035,163,000,141,000,21 
O, 163,010 

2348 DATA 141,001,210,163,003,141,111,00 
1,173,093,001,201,000,208,003,076,191,09 
5,169,006 

29SO DATA 141,086,001,076,191,095,169,00 

5, 141,886,081,076,193,93 

2990 DATA 184,162,8,163,8,157,0,154,224, 

255,248,4,232,76,27,36,162,0,163,0 

38ÖO DATA 157,255,154,232,224,255,208,24 

6,96 

4500 DATA 0,2,4,0,6,3,0,2,4,0,5,3,0,2,4, 
0,4,3,0,2,4,0,4,3,0,1,3,1,5,2,0,2,4,2,5, 
3,3,2,4,3,5,3,4,1,3,6,5,2 

4501 DATA 6,1,3,4,5,2,5,1,3,5,5,2,5,1,3, 
6,3,2,12,1,4,2,6,2,0,154,152,0,6,153,0,1 
54,152,0,5,153 

4582 DATA 0,154,152,0,4,153,8,154,152,0, 

4,153,0,153,151,1,5,152,0,154,152,2,5,15 

3,3,154/152 

4503 DATA 3,5,153,4,153,151,6,5,152,6,15 

3 , 151 , 5 , 5 , 1 52 , 5 , 1 53 , 151 , 5 , 5 , 152 , 5 , 153 , 15 

1,6,3,152,12,153,150,2,6,152 
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701Ö DATA 125,40,125,35,112, 5, 160,48,125 

,48,33,80,100,40,125,40 

7020 DATA 33 , 40, 83 , 18 , 93 , 18 , lOÖ , 18 , 93 , 18 

,83,40 

7025 DATA 112 , 18 , 125 , IS , ±12 , IS , 1O0 , 18 , 11 

2,40,163,48 

703O DATA 125,40,125,35,112,5,100,40,125 

,40,83,80,100,40,125,40 

7035 DATA 33,18,03,20,100,22,33,24,112,8 

0,125,20,125,120 

8500 DATO 104, 024,153,035, 205,877,001,17 

6, 603,076,003,100,234,173,018,210,281,12 

7,176,056 

3518 DATA 169,000,141,111,001,169,882,14 

1,875,881,169,001,141,189,001,169,803, ±4 

1,118,801 

8520 DATA ±63,006,141,076,001,163,884,14 

1,108, 001,024,173, 101,003,281, 12 3,176,00 

3,173,167 

S530 DATA 097,141,074,001,076,083,100,17 

3, 167,097,024,105,158,876,813,100,169,08 

O, 141,111 

8548 DATA 001,169,003,141,075,001,163,80 

2,141,103,801,163,004,141,118,001,169,00 

5,141,086 

8550 DATA 801,163,882,141,188,001,076,20 

6,099,076,237,834,001,076,206,093,076,23 

7,094,141 

8568 DATA 874,001,169,808,141,082,001,07 

6,OO9,1Ö0 . 

9008 DATA 184,824,173,010,210,201,127,17 

6 , 888 ,163, 001, 141, 167, 897 , 876 , ±6 6,181,16 

9,882,141 

9018 DATA 167,037,173,166,097,201,148,20 

8,249,162,000,160,800,200,192,001,208,25 

1,232,236 

9828 DATA 165,897,208,243,876,237,894,09 

7,288,243,876,237,094 

9Ö38 DATA 169, 148, ±41, ±66, 37, ±63, 64, 141, 

16, 0,±4±, 14, 210,162, 253, 154, 169, 133, 72, ± 

69,84,72,163,4,32,182,187 

9048 DATA 163,255,76,4,187 



TOP-TENNIS - TEIL ZWEI 



1 »EH Bernard Dalle 

2 he« Heinbergstr . 23 

3 REH CH-S2SO KREUZLIHGEN 

4 REM 

lO POKE 25533,76 : POKE 25682,3 :POKE 25541 

,9:PÜKE 20623, 5:POKE 20714,5 

20 POKE 24462, 158:PÜKE 24218, O : POKE 2402 

8,75:P8KE 24938,148 

X5 po^iiiü« jlj.,6:? "t3£EÄÄ!taj*lIig PART 3" 

26 POKE 30511, SüPOKE 305I9,S:P0KE 22411, 

8: POKE 22413,8 

30 POKE 764,33! A-USR £260533 



TOP-TENNIS - TEIL DREI 



5 C1_R :? "G'*:COSUB 7080 

ö POKE 542?3,i52:PöKE 24462 , 158 : POKE £42 

18,0:P0KE 24828, 75 : POKE 24338 , ±48 ; GRÖPHI 

CS 15:POKE 559,8 

±3 POKE 33888, 112;PÖKE 32854, 2;PÖKE 33ÖO 



9,112:POKE 7S2,±:POKE 342,8 

IS' POKE 87, ö ; POSITION 8,1:? «6;" 

GÖME3; SETS:"! POKE 87, IS 

3ö COLOR 2:PL0T 30, 143 : DftAWTO ±29,149:DR 
ÖMTO .1.19, BO ; DRAWTO 4B,5ö:DRüWTO 30,143 
35 POKE 765,±:POSITIQN 4O,5l:HI0 ±8, «6, 8 
,6/'5:":PLOT 8fl,±48:PLÖT 8B.51 
48 PIOT 32,±28:DRÖHTO ±27 , ±28 : PLOT 38,78 
:DRAMTO 12O,78:PL0T 88,78sDRÖWTO 88, ±28 
s&0 PLOT ±O,30:DRÖHTQ 18 , 15 : DRÄUT Ü ±49,15 
;DRAHTO 149,30 SDRÖHTÜ 18, 38 ! POSITION 16, 
16:CDLOR 2 : KIÖ 18 , «6, 6 , 6 , "5 : " 
8.1 PLOT 5,40:DRAUT0 1(8, 15: DRöWTÖ 1O,30:D 
RAHTO 5,55:DRAWTO 5, 48: PLOT I49,±5:DRAWT 
O ±54,48 

63 DRAHTO 154 , 55 : DRAUTO ±49,3Ö:FÖR K=18 
TO 145 STEP 6 

64 PLOT H,15:DRAWTÖ K,lÜiDRÖWTO X+4,16:D 
UöHTO K+4,15!PLOT K+2,9:PL0T X+i , 8 : DRAWT 
O H+3,8:DRAHT0 K+3,6 

65 DRAWTO H+l,6:DRAHTO X+i,8:NEXT X 

70 FOR K=27 TO 132 STEP 3 : PLOT H,38:DRäH 
TO X,100:NEKT H:FOR X = 90 TO 180 STEP 2:P 
LOT 27,X:£>ROWTÖ 132,X:NEXT X 

75 FOR K = Ö TO 3:PL0T 24+X, 90 : DRAWTO 24 + X 
,100:PLöT 132+X, 30 sDRÜWTÜ 132 + X , 180 : NEXT 

X 

76 COLOR fl:FOR X=33 TO 126 STEP 3SPLOT X 
,101: DRAUTO K,±85:MEKT X : FOR X=101 TO 10 
5 STEP 2:PLOT 33, X 

77 DRAUTO 126, X: NEXT H 

30 POKE 709,14:P0KE 788,212 :PO«CE 710,224 
:POKE 7±2,224:P0KE 784,220:P0KE 705, ±58: 
POKE 706, ±: POKE 707,238 

±55 POKE 53258, ±: POKE 53259, ±: POKE 559,4 
&:P(IKE 53277, 3 : POKE 337,8:PÖKE 336, O J PÖK 
E 623,±:GDTO 400 

3O0 POKE 343,O:P0KE 77,8:IF HY THE« 4O20 
30± A=1JSR £20738,0, 39420+PEEK £16083 3 i B=US 
ft C20730,!, 39548+PEEK £16893 J ! A=USR £260003 
:IF PEEK£3423 THEH 31Ö 
383 GOTO 301 

310 POKE 53250,0: POKE 53761, O: OH PEEK £34 
23 GOTO ±6±0,3±2, ±620, ±6±0,±6±0, 1630,320 

312 IF PEEK£333S <93 ÄND PEEK£3333>72 OR 
PEEKC3333<55 AND PEEKC3333>48 THEH POKE 
343,0:P0KE 342,0:POKE 367,8:GOTö 300 

313 GOTO ±6±0 

320 JF PEEKC343»=1 THEH 1620 

321 GOTO 1618 

322 POKE 28725, 30iP0KE 20726 , 70 : POKE 207 
27,6Ö!P0KE 28728, ±80: RETURN 

323 POKE 28725, 70 : POKE 2Ö726 , 30 : POKE 2Ö7 
27,±88:POKE 28723, 60: RETURN 

329 POKE 398il+PEEK£3343 ,0 

330 FOR X=0 TO 8: POKE 33813+PEEK £3343 +X , 
32: POKE 39812+PEEK £3343 +X, : FOR G=l TO 1 
ö:HEXT G:NEXT K:IF HY THEN 4062 

331 POKE 349,l:POKE 342,5:G0T0 310 
366 IF XrlS THEN 33Ö 

400 POKE 1608/88: POKE 334,91: POKE 1616,1 
26:POKE 53251, ±25: POKE 333 , 31 : RESTORE :K 
L=0:Pü=:i28:M=:ö:GOTÜ 1540 

401 POKE 1608,88: POKE 334, 9± : POKE 1616,1 
28: POKE 53251,±19:POKE 333 , 9± : RESTORE :K 
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L.=188:PO=122;M=:0:GOTO 1545 

482 POKE 16üS,37."POKE 334 J 39:PQKE 1616,1 

24:P0KE 53251, i2fli PÖKE 333 , 39 : RE5TÖRE 46 

aiKL=26B:PO=:ii5:M=i8e!GöTO 1550 

403 POKE 16B8,37:POKE 334 J ,33:P0KE 16I6,i 

38:POKE 5S2Sl J i26:POKE 333 , 33 ; RESTORE 46 

8 : Kl_=388 : PO=125 : M=188 : GOTO 1555 

484 GOSUB 321+PEEKC3353 : GOSUB 478+J:POKE 
5324B+J-P0-2+MK8 .04 

485 SOUND 8,8,8,8:FOR X=8 TO 3:P0KE 3981 

2 + PEEK C334J , 8 : POKE 3981I+PEEK (3343 , 32 
406 GOSUB 478+J 

410 POKE SJ4,PEEKC3J4J-1jHEKT X 

412 J.F PEEK £532793=6 THEH GRAPHICS 8:P0K 

E 710, 144 ; CLP : GOSUB 6888 : GOTO 8 

4iS FOR K^O TO SiREAft C : POKE 35423+J*128 

+PEEKC1688+J3+X,C:IF STftIG £ J3 =8 THEH POP 

:GOT0 650 
416 GOSUB 470+J 
428 HEXT K : FOR X=8 TO S:REAB C:POKE 3942 

3 + J*i26+PEEK £i688+Ji;»+X,e:IF 5TRIGCJ3=0 T 
HEH POP :GOTO 658 

424 GOSUB 478+J 

425 NEKT X ! FOR X=8 TO 3: POKE 398Ö8+PEEK C 
3343 +3,8:POKE 39888+PEEK £3343 +4, 32 

438 POKE 334 ,PEEK £3343+1: GOSUB 478+J: HEX 

T X 

435 SOUND 8 , 18 , 8 , 6: RESTORE 458+M/IÖ 

448 GOTO 404 

458 DATA 7,7,2,38,6,6,5,9,27,7,7,2,6,38, 

6,5,9,27 

468 DATO 224,224,64,248,224,224,168,144, 

216,224,224, 64,224,248,224,168,144,216 

478 A=:USRC28730,1,39548+PEEKC16092 3 ;RETU 

RH 

471 A-U5RC28738, 8, 39428+PEEK £16083 3 : RETU 

PN 

588 POKE 1609,83: POKE 334,9i:P0KE 1617,1 

26 üPÖKE 53251, 125: POKE 333, 91 : RESTORE ;K 

L-8:P0=128:M=0:GOTO 1560 

581 POKE 1689,88:POKE 334,91:POKE 1617,1 
285POKE 53251, I13:POKE 333 , 91 : RESTORE :K 
L=i88 : PO=122 :M=8 : GOTO 1565 

582 POKE 16Ö9,37:PÖKE 334,39:POKE 1617,1 
24: POKE 53251 , 120 : POKE 333 , 39 : RESTORE 46 
ö :KL=200:PO=119:M=180iGOTO 1578 

503 POKE 1689,37:POKE 334,39:PÖKE 1617,1 

38:P0KE 53251, 126:PÖKE 333 , 39 : RESTORE 46 

Ö : KL~300: PO=125:M-188 ; GOTO 1575 

SOS GOTO 484 

650 POKE 369,8:P0KE 53248+ J , PO : A=USR £235 

ee+M+j*288) 

652 DEL=BlFOft H-0 TO 16 : GOSUB 478+ J : POKE 
39S12+PEEK £3343 , Ö : POKE 39Ö11+PEEK C3343 , 
32 

655 FOR G~l TO INTfftEL/23+l:MEKT Gj»EL=D 
EE+l:POKE 334,PEEK £3343 -1: NEKT X 
668 FOR ü~ß TO 2B:P0KE 39811+PEEK C3343 , 6 
: POKE 39812+PEEK £3343 ,32 

665 FOR G-l TO 5; HEXT G : POKE 334, PEEK £33 
43+l:IF 5TRIG£J3:=8 THEN POP :P8KE 39812 + 
PEEKC3343 ,8 SGOTO 700+KL 
667 IF X>11 THEH POP :GOTO 329 
678 GOSUB 470+J:HEKT X 
788 GOSUB 788+STICKCJ3 



701 A=U5R C23500+JW2883 

782 GOSUB 722: POKE 349,1 

7Ö3 fl=USft(23588tJ*288J :POKE 1616+ J , 126 ; P 

OKE 869,123:SOUMD 8,18,8,15 

784 GOTO 884 

785 POKE 330,8: POKE 331,152:POKE 365,153 
:POKE 366, 151: POKE 367, 8: RETURN 

786 POKE 338,0:POKE 331,1S3:PQKE 365,154 
:POKE 366,15I:POKE 367,8:RETURH 

707 POKE 338,8:POKE 33i,153:POKE 365,154 

:POKE 366,151:POKE 367,8:RETURN 

709 POKE 330, 152: POKE 331, 152: POKE 365,1 

53:POKE 366,151:POKE 367,8:RETURN 

71Ö POKE 338,152:PÜKE 331,153iP0KE 365,1 

54JPOKE 366,15iiP0KE 367 , ; RETURN 

711 POKE 339, 152: POKE 33i,153:P8KE 365,1 

54:POKE 366,151:POKE 367,6:RETURN 

713 POKE 33Ö,15i:POKE 331,152:P0KE 365,1 
53:PÖKE 366, 151 ; POKE 367 r 8:RETURN 

714 POKE 33ß,151:POKE 331,153:POKE 365,1 
54:P0KE 366,151:POKE 367,8:RETURN 

715 POKE 338,15l:POKE 331,152:POKE 365, ± 
53:POKE 366,151:P0KE 367,8:RETURN 

722 IF PEEK £3313 >148 THEN 726 

723 POKE 354,0: POKE 355,32:POKE 348,1 

724 POKE 364,B:POKE 332,2:IF X<4 THEN PO 
KE 364,4:POKE 332,2:IF PEEK £3313 -2. THE« 
POKE 364,1 

725 GOTO 728 

726 POKE 354,32:PÖKE 355,8:POKE 349,8:PO 
KE 364,QSP0KE 332,2 

727 IF K<6 THEN POKE 364,4:POK£ 332,2 
726 PGKE 347,7:RETURN 

3O0 GOSUB S08+STICK CJ3 
881 ft=USRt23588+J*2B8) 
682 GOSUB 722: POKE 349,2 

883 Ü-USR £23588+ J«2883 : POKE 1616+J , PO ; PÜ 
KE 869, 123: SOUND 8 , 18 , 8 , 15 : POKE PM+896+P 
EEK C3343 +3,0 

884 POKE 347,5:PQKE 338 , ABS £ J-13 : POKE 33 
9,J:GOTO 380 

805 POKE 338,2:POKE 33i,152:PÖKE 365,153 

;POKE 366,151:PÖKE 367.8:RETURN 

886 POKE 338,2:PÜKE 331,153:POKE 365,154 

:POKE 366,15i:POKE 367,8:RETURH 

807 POKE 330,2:PGKE 331.. 153: PÖKE 365,154 

:POKE 366,15l:POKE 367,8;RETURH 

889 POKE 338, Ö:POKE 331,152:P0KE 365,153 

:POKE 366,151:POKE 367,0:RETURN 

810 POKE 338,0:P0KE 331,153:POKE 365,154 
:PÖKE 366, 151: POKE 367,8: RETURN 

811 POKE 33S,8:P0KE 331,153:POKE 365,154 
iPOKE 366,151 :POKE 367,0:RETURN 

813 POKE 338,1:PÖKE 331 , 152 : POKE 365,153 
2POKE 366,15l:POKE 367 , ! RETURN 

814 POKE 33ß,l: POKE 33A,±53:PÜKE 365,154 
: POKE 366,151: POKE 367, 8: RETURN 

815 POKE 330,1 :POKE 331,152 : POKE 365,153 
:POKE 366,151;POKE 367,8:RETURN 

988 GOSUB 9O0+5TICK f J3 

981 A = USR £23688+J*2B83 

982 GOSUB 722:POKE 349,3 

963 A=USR £23680 + JK*2803 S POKE 1616 + J, PO: PO 
KE 869,123 :3ÖUHI> 8, 18 , 8, 15 : POKE PM+768+P 
EEK £3333+2,8 
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POKE 365,1 

POKE 365,2 

POKE 3&S,2 

POKE 365,1 



POK 
POK 
Pöfc 
POK 
POK 



POKE 365,2lPO 



POKE 365,1: PO 



PO 



984 GOTO 804 

905 POKE 330,2:POKE 331,3;POKE 365,2 

E 36e,iSiPOICE 367,0;RETU«N 

?06 POKE 338,2: POKE 331,2; 

E 366,3:PÜKE 387,8:RETURN 

907 POKE 338,2:POKE 331..3; 

E 3fi6,5:PöKE 367 , fl : RETURN 

9Ö5 POKE 338,0: POKE 331., 3: 

E 366,5:POKE 367,0:RETURN 

9JO POKE 336, 8: POKE 331,2 

E 36.6,3: POKE 367,0:RETURN 

911 POKE 338,8:P0KE 331„3:PÜKE 365,2;P0K 

E 366,5:POKE 367,8:RETURN 

913 POKE 338,l:P0KE 331, 3: POKE 365, 2: POK 
E 366, S: POKE 367, 6: RETURN 

914 POKE 338,1:P0KE 331,2:P0KE JöS.lsPOK 
E 366,3:P0KE 367,8:RETURN 

915 POKE 338,1:P0KE 331,2:POKE 36S,I:PÜK 
E 366 ,3: POKE 367,8:RETURN 

1888 GOSUB I888+STICK£JJ 

1881 A=USR £23688+ J*288) 

1882 GDSUB 722:P0KE 349,4 

1083 ft=U5R(2366B+J*28Ö) : POKE 1616+J,PO:P 

OKE 669, 123: SOUND 8, 10, 8, 15 : POKE PM+768+ 

PEEK£333J+2,8 

1O04 GOTO 884 

±885 POKE 330,ö:P0KE 331,3! 

KE 366,5:P0KE 367,B:RETURN 

1886 POKE 330,ß:P0KE 331,2 
KE 366,3lPOKE 3&7,B:RETÜRN 

1887 POKE 338,8: POKE 331,3:POKE 365,21 
KE 366,5 :POKE 367, O: RETURM 

1089 POKE 33B,152:POKE 331,3:POKE 365,2: 

POKE 366, 5: POKE 367 , O : RETURN 

1O10 POKE 336,152:POKE 331,2:PÜKE 365,1: 

POKE 366,3:POKE 367, O: RETURN 

löll POKE 330,152: POKE 331,3: 

POKE 366, 5: POKE 367,0 : RETURN 

1813 POKE 338,I51:P0KE 331,3! 

POKE 366, 5: POKE 367, 8: RETURN 

1014 POKE 338,151 :POKE 331,2! 

POKE 366, 3; POKE 367,8:RETURN 

1815 POKE 338,151:P8KE 331,2:P0KE 365,1: 

POKE 366,3:POKE 367,8:RETURN 

1S88 IE (GAHEÖ+GftMEBJ /2<>IHT ( (GÄMEft+GAHE 

BJ/2J THEN CHANGE=3: RETURN 

1518 RETURN 

1528 IF CH=3 THEN CH-0 5 RETURN 

1522 XF 5ER = 8 THEN SER=188 j RETURN 

1538 SER=8! RETURN 

1548 POKE 1617,96*ASS£HY-i:* iPÖKE 1689,35 

iPOKE 335,2: J=8 : GOTO 484 

1545 POKE 1617,158:P0KE 1689,35:POKE 335 

,2U=«:GOTO 484 

1550 POKE 1617, 158: POKE 1689, 98; POKE 335 

, l:J=fl:GOTO 484 

1555 POKE I617,96:POKE I689,98:POKE 335, 

±:J=8:GQT0 484 

1560 POKE ±6±6,96:POKE 16B8,35:POKE 335, 

I:J=i:GOTO 484 

1565 POKE 1616,158:POKE 1688,35: POKE 335 

, l:J=I:GOTO 484 

1578 POKE 1616, 158! POKE 1688, 98; POKE 335 

, 2:J=l:GOTO 484 



POKE 365,2: 
POKE 365,2: 
POKE 365,1: 



1575 POKE 1616,96! POKE 1688,90;POKE 335, 

2:J=l:GOTO 404 

1618 IF PEEK£338J=0 THEN Bö=l : BB=8 : GOTO 

1788 

1615 BA-8 : BB=1 : GOTO 1788 

1628 IF PEEK £338J=B THEN Brt=8 i BB=1 : GOTO 

1788 

1625 BB=B:BA=l:GÖTO 1788 

1638 POKE 342,8:BA=Ö:BB=0:GOTO 1758 

1788 FOR K=15 TO 8 STEP ~0 . 5 : SOUND 8,28, 

18,H:NEXT K 

1704 IF PEEK£3421~1 THEN ? " 

OUT" 
1715 IF PEEKC3493=6 THEN 1858 
1728 IF HSER=8 THEN ? :? " SE 

COND SERUICE ,, :HSER=l:BA=8:BB=8:GOTO 1850 
1725 NSER=8:G0T0 1858 

1758 ? " LET»!IF »SliR = e 

THEN ? :? " FIRST 5ERUICE" : 

GOTO 1880 

1768 ? :? " SECOND SERUICE" 

1608 GOSUB 478:GOSUB 471 : fl-USR £24308» 

±818 IF PEEK £3421=7 OR PEEKC342S=5 THEN 

GOTO 1858 

1828 GOTO 1888 

1858 IF BA=8 AND BB=Ö THEN 2SÖB 

1655 KSER=B : ftDU=B : DEUCE=8 : IF TIE=1 THEN 

34O0 

±868 PINTA-PIHTft+£Bfl=13 : PINTB=PINTB+ CBB- 

11 :CHüHGE=:2 

1S65 IF PINTA>3 THEN 188B 

±870 IF PINTB>3 THEN 1SSO 

1675 GOTO 2888 

IS88 IF PINTA-PIHTB>I THEN GflMEfl=GöMEÖ+l 

: PINTä=8 : PINTB=8 :CHÖNGE=1 : GOSUB 1588 : GOT 

O 1920 

±895 IF PINTB-PINTÖ>1 THEN GAMEB=GAMEB+1 

: PINTü^O : PINTB=« : CHAHGE=1 : GOSUB ±500 : GOT 

O 1928 

1988 IF PINTB-PINTft=8 THEN DEUCE=i:GÜTÖ 

2006 

1918 IF PINTA>PINTB THEN ft»U=l : GÖTÖ 2080 

±915 ft&M=2:GOTü 2888 

1920 IF GAMEA>5 THEN 3888 

1938 IF GftMEB>5 THEN 3888 

2880 POKE 87,8;IF TIE=1 THEN POSITION 1, 

±:? »6;PINTAj"-";PINTB;" ":GOTÜ 2848 

28±8 POA=±S*£PXHTA-iJ +30* 1PXNT A~21 +40* CP 

INTÖ=3J 

2028 POB=15*£PXNTB=U+38*£PINTB=2J+48*£P 

INTB=33 

2038 IF DEUCE=i THEN POSITION 1,1:? »6 ; " 

DEUCE"J" ":GOTO 2848 

2832 IF ßDV=l THEN POSITION 1,1:? »6; "AD 

U. PL. 1": GOTO 2840 

2834 IF ADU=2 THEN POSITION 1,1 :? »6; "AD 
U PL 2":GÜTÖ 2848 

2835 IF SER=188 THEN POSITION 1,1:? »6 ; P 
OB;'" ";POß;" ":GOTO 2848 

2836 POSITION 1,1:? »6 ; POA ; "-" J P8B ; " 
• ■ 

2048 POSITION 28,1:? »6 ; GAMEA ; "-" ; GÖMEB 
2068 POSITION 33,1:? «6; SETA } "-" i SETB 
2878 IF CHANGE = 1 OR CHANGE=:3 THEN GOSUB 
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1529s POSH-8 

2873 IF CHANGE-1 THEH IF POSY=2 THE» POS 

Y~8:P05H=6:GGTü 2168 

2674 IF CHAHGE=1 THEN XF P8SY=8 THEH POS 

Y=2:PO5X=:8:G0TG 2188 

2075 IF CHÜNGEr2 TKEN IF POSK=l THEH POS 

H=B:CHANGE=8 

2877 IF CHANGE=2 THEH CHANCEN : IF POSH^O 
THEH PÜSK=l:GOT8 2188 

218Ö FÜR G-i TO 188: HEXT G 

2185 2 CM«Stl25J:CNflKGE = 8:POKE 336..8IPOK 

E 337,e:POKE 342 J 8:POKE 343 , 8 : A=11SR C2468 

83 :GOTO 480 + SER+PQ5Y+PÖ5H: 

3888 IF GAMEA-GAMEB>1 THEH SETA=SETA+1 : G 

AMEA=8;GAMEB=Ö IGÜTO 3288 

3018 IF GAMEA^GAMEB THEH TIE=1:? ;? '■ 
TIE BREAK" : POSK=l :GOTÖ 288Ö 

38S8 IF GAMEB-GÄHEÖ>1 THEH SETB = SETB + ÜG 

üHEÜ=ö;GftHEB=e;GOT0 320Q 

3878 GOTO 2888 

3288 IF SETA=2 THEH U=l : GOTO 3388 

3218 IF SETB = 2 THEH If = 2 : GÜTO 3388 

3228 GOTO 2888 

3388 FOR K:fl TÖ 3 ; POKE 53248+X , 6 : HEHT H 

3318 GRAPHICS OiPOKE 718,8 : POKE 752. 1; PO 

SITIOH 18,18:? "-PLAYER ";U;" 15 THE MINN 

ER" 

3328 FOR G = l TO 588 ! HEKT G:GOTO 5 

34Ö8 PXHTA = PIHTA+fBA = 13i i PIMTB = PINTB+ £BB = 

13 :CHANGE = 2 ; GOSUB 4888 

3485 IF PIHTß+PINTB=6 THEH CH-3 : CHAHGE=I 

3418 IF PIHTft>6 THEN 3448 

3428 IF PIHTB>6 THEH 3448 

3438 GOTO 2888 

3440 IF PIHTA-PIHTB>1 THEH GAMEA^O : GAMEB 

~8 : PINTA=8 : PIHTB=B : SETA=SETA+1 : GOSUB 158 

8:TIE=8SGOTÜ 3288 

34S8 IF PINTB~PIHTA>1 THEH GAMEB=8 i GAffEA 

-8 :PIHTA=8 : PIHTB-e : 5ETB=5ETB+1 : TIE=ß i G8S 

ÜB ISOßiGOTO 3288 

3468 GOTO 2888 

1868 IF £PIHTA+PIHTB)/2<>INTC£PIHTA+PIHT 

83^23 THEN CHA«GE=1 : RETURN 

4818 RETURM 



4828 POKE 341, 8 : A=U5R £255881 S A = USR (2BQOS 

JSPOKE 338,8:^ PEEK C3425 AHO PEEK «3423 < 

>2 THEH 48B8 

4848 A=U5fl£20738, 8, 39428+PEEK £168333 :GOT 

O 4828 

4868 IF PEEKC342!J>48 AND PEEK C342X60 TH 

EH POKE 367»0:G0T0 4865 

4861 IF PEEK £3423 <>5 AHD PEEK £3425 <>4 AH 
PEEK£3423<>7 THEH POKE 342,8:P0KE 367, 
85GOTO 4865 

4862 POKE 53258, 8 ; FOR H=15 TO 8 STEP -1 : 
SOUND 8,28,2,X:NEKT H : POKE 342 , : A=USR £2 
46883) :GOTO 488 

4865 POKE 342,8:POKE 334 , PEEK £333 3 ~i : A~U 
SR £246881 : GOTO 4828 

6888 POKE 559,8 s POSITION 4,8:? "EiljSlFtilTB" 
: POSITION 4,13:? " EPTW^iBW 1 : POSITIOH 18,1 
6;? "press ^BEia B ta begin" 

6881 POKE 752,1: A-LISR C246083 : FOR K = 8 TO 
3:P0KE 5324S+K, 8 : HEXT H:PÜKE S327S , 8 : POK 
E S&9,8:P0KE 559,46 

6882 POKE 718.144:FÖft G = l TO 188 2 HEKT G 
6818 S = 5 + CPEEK £532753 =53 : 8 = 0+ CPEEK £53279 
3=33 :IF 5=3 THEN 5=8 

6815 IF 8 = 2 THEN 0=8 

6816 GOSUB 6188+5*18: GOSUB 6288+0*18 
6828 IF PEEK £532793=6 THEH RETURN 
6838 GOTO 6818 

6188 POSITION 11,13!? "HOUICE ":POKE 26 
835 ,188: POKE 24597 , 58 : RETURH 
6110 POSITION 11,13:? "üftUflNCED" : POKE 26 
835,188:P0KE 24997 , 13 ; RETURH 

6120 POSITION 11,13:? "EHPERT "iPOKE 26 
835,lsP0KE 24997,1 : RETURH 

6288 POSITION 11,8:? "2 PLAYERS GAME 
5H¥=8 : RETURH 

6218 POSITION 11,6;? "1 PLAYER PRÜCTICE" 
: HY = 1 : RETURH 

7888 ö = PEEK £2S808 + K3 i B = PEEK (250Ö1 + KJ 
7807 SOUND 1, A, 18,4: 50UHD 8 , A- 1 , 10 , 4 : FOR 
ö~i TO B/i.6:HEHT O : FOR G = l TO 2 : POKE 6 
3761, OS POKE 53763, 8: HEKT G 
7Ö0S H=H*2;IF H=78 THEN 6888 
7818 GOTO 7888 



ÄWfe 



Achtung! ... - Achtung! ... - Atari-Freunde auf ge paßt!! 

Das Programm „ Groove" ist jetzt auch auf DOS III lauffähi g!!! 



Leider ist uns beim Abdruck des Atari-Programms 
„Groove" ein Fehler unterlaufen. Denn in der abge- 
druckten Version ist dieses Programm nur auf DOS II 
lauffähig. Damit nun auch DOS III-Benutzer in den Ge- 
nuß dieses tollen Programms gelangen können, hat un- 
serer Programmierer Ottfried Schmidt die nachstehen- 
den Änderungen vorgenommen: 
In Teil 2 muß die Zeile 1890 folgendermaßen geändert 
werden; 

1890 DATA 2,32,170,32,31,169,32,197,170,32,230,170,32, 
189,168,0,0,0,0,0,69,0,0,0,2348 
Die Zeile 160 muß lauten: 160 READ a 



Ansonsten wird beim Erstellen des Files GROOVE. 
EXE, wie in der Anleitung beschrieben, vorgegangen. 

Um das Spiel zu starten, muß beim Einschalten des 
Computers die Taste „OPTION" gedrückt werden. Ist 
das DOS geladen, drücken Sie bitte die Taste „L". Als Da- 
teinamen geben Sie bitte GROOVE:EXE ein. Ist das 
Programm geladen, so müssen Sie die Taste „G" betäti- 
gen. Auf die Frage nach der'Startadresse geben Sie bitte 
die Zahl 4500 ein. 

Das Programm wird nun gestartet und kann mit Joystick 
1 gespielt werden. 



60 



Computronic 




PANZERSCHLACHT- ein wahrhaft explosives Spiel! 

Viel Geschick und Reaktionsvermögen solltet Ihr schon besitzen, 
wenn der Panzer des Gegners ausgetrickst werden soll. Gelenkt wird 
mit dem Joystick (Porti = schwarzer Panzer, Port 2 = weißer Panzer), 
geschossen wird mit dem Feuerknopf. Allerdings könnt Ihn wie sonst 
bei Panzern üblich, nicht auf Dauerfeuer umstellen. 



Euer Fahrzeug kann in acht verschiedene 
Richtungen bewegt werden. Gewonnen 
hat derjenige Spieler, der den Panzer des 
anderen fünfzehnmal zerstören konnte. 
Die viereckigen Blöcke auf dem Spielfeld 
können weder überfahren noch abgeschos- 
sen werden. 
Das Spielfeld ist nicht besonders groß, da- 
für sind die Panzer aber sehr schnell. Seid 
deshalb vorsichtig, damit der Gegenspieler 
nicht plötzlich hinter Euch ist ... ! 
Hinweis zum Eintippen: Es werden keine 
Rem-Zeilen angesprungen, diese können 
somit vernachlässigt werden. (S.G.) 



Hier werden Geschicklichkeit und schnelles Reaktionsvermögen gefordert 



2 REM « PANZERSCHLACHT W- 

3 REM * (CJI'98S BV « 

4 REM *t ÖSKI--H6RE « 

20 GOSUB 32888 

58 LT=ö:RT-B 

110 GOSUB 38888 

±28 Kfl=2 :Vö=3:Hi=17:Vl=?:TÖ=G:Ti~S 

±25 G05UB 28888 

±38 GOTO 5888 

999 REM BEWEGUNG PftHZEft ± 

1088 «8 = 58 + 188 : SOUND 8 , 258 , 6 , ±2 : COLOR 32 
•PLOT Kö , V8 : H8 = KO+Xi_ : V8--V8 + VL : COLOR HO : P 
LOT KöjVfitRETURH 

1893 REM BEWEGUNG PANZER 2 

±±88 HI=51+i96! SOUND ± , 248 , 6 , 12 ; COLOR 32 
:PLOT Ki , Vi : X1=KI+KR : Vi- V1+ VIR : CüLOR H± : P 
LOT H±, V± : RETURN 

±±99 REM PANZER ± KAPUTT 

±288 IF S±<>±5 THE« COLOR 5i+iS6iPtOT Kl 
, Vi. 

±285 FOR 1=255 TO 8 STEP ™5lP0KE 789,1: S 
OUND 8, I, 12, 18: SOUND 3 , I r 6 , ±0 S HEKT IsFflR 

1=8 TO 3i'SOUNI> Ijß^^iNEKT I 
1218 POP ;RT~RT+1 ;GÖTO 128 

±299 REM PANZER 2 KAPUTT 

1388 IF S8<>±5 THEN COLOR 58+188 2 PLOT X8 
, VO 

±385 FOR 1=255 TO 8 STEP -5:PÖKE 718,1:5 
OUKO 8,1 ,12, 10: SOUND 2 , I , ß , 18 ! NEHT XsFÖR 

1 = 8 TO 3:SOUND I,8,8,8!HEXT 1 
1318 POP :LT=LT+1 :GOTÜ 120 

1399 REM SCHUSS ABGEGEBEN 

2860 18=1 :PÖ=KL:Qß=VL:PKa=KB:O«ö=V0 

2810 LOCÖTE PK8+P8,ÖK8+08,FL8 

2828 IF FL8-32 OR FL8=164 THEN SOUND 2,P 

H8+QX8, 8, 18 S PH8=PX8+P8 : QKe = 0K6 + Q8 : COLOR 

4:PLÖT PKÖ,ÜHB;RETURN 

2838 IF FL8=35 THEN T8=8:5ÖUND 2,8,8,8:« 

ETURN 



2848 IF FL8=24S THEN SOUND 2 , 288 , 8 , 12 ! CO 

LOR 32IPLOT PXO+P8 , OXO+ftO : T8=8 : SOUND 2,8 

,8,0;RETURH 

2858 IF FLfl=Hi THEN 1388 

2999 REM SCHUSSFLUG 

3808 LOCßTE PK8+P8 , OH8+«8 , FL8 

3818 IF FL8=32 OR Fl_8=±6,4 THEN COLOR 32 i 

PLOT PXO, OHÖ r PHB-PHB+Pfl : 0X8=0X8+08 : COLOR 

4JPLOT PKÖjOKO 
38±5 IF FL8=32 OR FL8=±64 THEH SOUND 2,P 
X8+OX8, Ä, ±8 : RETURN 

3820 IF FL8=35 THEN T8=8 : COLOR 32 : PLOT P 
K8,QX8:SOUHD 2 , 8, 8 , 8 : RETURH 

3838 IF FLfl=248 THEN SOUND 2 , 288 , 8 , ±2 : CO 
LOR 32 t PLOT PK8,ÖH8:PLOT PX8+PB , (IX8+QO I T 
8~8: SOUND 2,8,8,85RETURN 

3848 IF FL8=H± THEN COLOR 32 : PLOT PKO.OK 
8jT8=8:GOTO ±388 

3499 REM SCHUSS ABGEGEBEN 

3588 T±=± : Pl=Kft : «1=V« : PKi=Ki : QK1=Y1 

3518 LOCATE PHi+Pl , OKi+öl ,, FL1 

3520 IF FL1=32 OR FL1 = 4 THEN SOUND 3 , PXA 

+OX1, S, 18 : PH1=PK1+PI : QKi=OKl+01 : COLOR 16 

4:PLOT PKI, (1X1 :RETURN 

3538 IF FL1=35 THEN Tl=8:SOUND 3,8,8,8:R 

ETURN 

3548 IF FLi-248 THEH SOUND 3,288,8,18 :CÜ 

LOR 32SPLOT PX1+P1 , QHl+Ol S Tl=8 : SOUND 3,8 

,8,8:RETURN 

3558 IF FLI=H8 THEN 1288 

3399 REM SCHUSSFLUG 

4888 LOCÖTE PX1+P1 , OXl+QI , FL1 

4818 IF FLi=32 OR FL1 = 4 THEN COLOR 32 : PL 

OT PX1 , OKI : PK1=PX1+P1 : ÖH1=QK1+Ö1 : COLOft 1 

64: PLOT PKI, OKI 

4815 IF FL1=32 OR FL1 = 4 THEN SOUND 3, PKI 

+«X1,S, 18:RETUHN 

4828 IF FL1=35 THEN Tl=8:COLOR 32:PLOT P 

XI,QHI;SOUND 3 , 8 , 8, 8 : RETURN 

4838 IF FL1-24S THEN SOUND 3 , 288 , & , 12 : CO 
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LOR 3:2:PLOT PKJl , QK1 : PLOT PKl + Pi , OK1+Q1 : T 

1=0:sound ä,a,o,e:fiETUfiH 

4848 IF FLi=Hfl THEN COLOR S2:PLOT PX1,QX 
i:Ti=fl:GOTO 1200 

4499 REM SPIELENDE 

45B8 POSITION 2,4:? 2*6; "Htm ttttött tttt tttttt 



451Ö POSITION 2,5; 

4528 POSITION 2,61 

453Ö POSITION 2,7! 

454Q POSITION 2j8i 



Ö6J"« tt 

tt6 ; "tut tt 

tt6j"tt n 

tt6j "tlttit tt 



«t tt tt tt" 
tt tt tt litt" 
tt tt tt tt" 



4558 PO« 1-8 TO SOö:HEXT I ; GOTO SO 

4999 REM HAUPTSCHLEIFE 

5888 PA=PA+1;IF PA>1 THEN PA~8 

5882 IF PA~& THEN Siöö 

5085 58=5TICK £03 : IF 50=15 THEN SOUND 0,0 

,ö,9:GOTO 5898 

5818 KL=fl;VL-8 

5820 KL-KL+ t50:=53 + £S8=63 + £58=73 - £58=93 ™£ 

50=183 -£50=113 

5838 YL=YL+ £58=53 + CS8=I33 + £58=93 - £58=183 

- £58=143 - £S0=63 

5848 LOCHTE K8+HL , Y8+VL , FO : IF FB=32 THEH 

GOSUB ±808 
SOSO IF F8=24S THEN 1208 

5838 IF 5TRIG£83~8 AND T8=0 THEN GOSUB 2 
080 

5180 IF TO=l THE« GOSUB 3008 
5588 IF PA=1 THEH 5688 

5585 Si-STICK £13 : IF 51=15 THEN SOUND 1,8 
,8,8:GÜTÜ 5598 
5518 HR=8!YR=8 

5528 KR-KR+ £51=53 + £51=63 + £S1=73 ~ £S1=93 - £ 
51=183 -fSI-r.liS 

553« VR=VR+ £51 = 53 + £51=133 + £S1=93 - CS1=183 
- £51=143 -£S1=63 
5548 LÜCATE Ki+HR , Yl + YR , Fl : IF Flr32 THEN 

GOSUB 1100 
5558 IF Fl-248 THEN 1388 

5S98 IF STRIG£13=Ö AND Ti=Ö THEN GOSUB 3 
S88 

560O IF Tl = i THEN GOSUB 408O 
6888 GOTO 5000 

±3333 REM '- SPIELFELD 

20088 GRAPHICS lS:POKE 77.0-.POKE 756, P;P 

OKE 708,52:POKE 799 f Ö:POKE 718.12;POKE 7 

12, 6^. POKE 711,196 

20010 POKE 7il,IHT(CfiMJ>{83»15}41J»i6+4:P 

OKE 768,INT f £RND £83 »153 +13*16+2 

28058 POSITION 8,8:? «6; LT ! POSITION 18 , 8 

:? »e^'i-iPOSITIOH 11,8:? »6jRT 



P 

N 
Z 
E 
R 
S 

c 

H 
L 

C 
H 
T 



TP 

E 

N 
D 



2010O COLOfi 35:PLOT 0,1:DRAHT0 19 , 1 : DRAH 

TO 19,Ü:DRAWTÖ 8,ll:DRÜWTO 8,1 

28105 IF RT = 15 OR LT=15 THEN POP : GOTO 4 

508 

28118 FOR 1=8 TO 24 

20128 F = INT £RND €03*183+1 : G=INT£RND (QJ^J 

+25L0CÖTE F,G,Fft:IF F4<>32 THEH 2812Ö 

28138 DOLOR 3S : PLOT F,G:HEKT I 

20148 FOR 1=0 TO 14 

28158 F=IHT£RND (33*183 +1 j G = INT £RND £83*93 

+2;LOCÖTE F,G,FöilF Fä<>32 THEN 28150 

28168 COLOR 24S:PLOT F,G:NEXT I 

20178 COLOR 113:PLOT K6, V0 ; COLOR 210SPLO 

T K1,V1 iHB-113:Hl=21ö:KLze:YL=l:KR=B:Vft= 

-1 

20208 RETURN 

29999 REM - : TITEL 

30088 GRAPHICS 17:PÖKE 77,8 

3B01O POSITION 3,5!? U6 ; "PANZERSCHL ACHT" 

:PÖSITION 0,14:? Ö6.;"fCJ198E BV ASKI-WAR 

E" 

30820 POSITION 3,20!? tt&;"DRUECKE START 

I J 

38038 IF PEEK £532793 <>6 THEN 30838 

30048 RETURN 

31999 REM ZEICHENSATZ- ; 

32088 P = PEEK £1863 -ö:(J-P*256 : POKE 559,0 :P 

OKE 77,128:FOR 1=0 TO 1023 : POKE Q+I,PEEK 

£57344 + 13 iHEHT I 

32085 RESTÖRE 32188 

32010 READ M:IF N<>-1 THEN Üzß+«*B:FOR I 

= ü TO A+7:READ C;POKE I , C : NEXT I : GOTO 32 

32020 RETURH 

32188 DATA 3 ,, 254 , 254 , 254, 254 , 254 , 254 ; 254 

,8 

32118 DATA 56,138,68,48,16,48,68,138,8 

32128 DATA 50 , 16 , 16 , 214, 254 , 254, 2S4 , 254 , 

138 

32130 DATA 42,25,58,124,255,255,62,20,24 

32148 DATA 43 , 252 , 2S2 , 128 , 127 , 120, 252, 25 

2,8 

32158 DATA 41,24,28,62,255,255,124,58,25 

32168 DATA 49,198,254,254,254,254,214,16 

,16 

32170 DATA 45,24,56,124,255,255,62,92,15 

2 

32188 DATA 47,63,63,30,254*30,63,63,8 

32190 DATA 46,152,92,62,255,255,124,56,2 

4 

32280 DATA 4,8,8,8,16,0,0,0,8 

32388 DATA -1 



Korrektur zum A p ple-Programm „Music-Editor" 
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2455 FOR Z - NX - 2 TO NX + 2: HCOLOR= 0: HPLOT Z,NY TO Z,NY + 2: NEXT : HCOLOR- 
3380 For I = NX - 2 TO NX + 2: HCOLOR= 0: HPLOT I,NY TO I,NY + 2: NEXT I HCOLOR= 3 
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Optimiertes Basic-Programm für den Profi 



von Oliver Steinmeier 



Dieser Artikel soll einige Tips geben, wie 
BASIC-Programme optimaler gestaltet 
werden. Diese Optimierung bewirkt dann 
auch normalerweise eine Erhöhung der 
Arbeitsgeschwindigkeit des Programms. . 
Der Autor geht von keinem speziellen 
Computer aus. Die hier abgedruckten Tips 
gelten für fast alle herkömmlichen BASIC- 
Homecomputer, da deren Interpreter nor- 
malerweise ähnlich arbeiten. Zeitangaben 
beziehen sich stets auf den Apple II, sind 
jedoch auf andere Rechner übertragbar. 
Es wird von Basic-Programmierern immer 
wieder verlangt, strukturierte und damit 
lesbare Programme zu schreiben. Das be- 
deutet unter anderem, daß ein klarer Auf- 
bau vorhanden sein muß. Am Anfang soll- 
te das Hauptprogramm stehen, daß im 
Prinzip nur noch aus Unterprogrammauf- 
rufen besteht. 

Unter dem Gesichtspunkt der Geschwin- 
digkeit-Problematik ist dies jedoch oft 
nicht mehr sinnvoll: 

Wenn der Interpreter einen Verzweigungs- 
befehl verarbeitet, muß er zunächst das 
Programm nach dem Anfang der Zeile 
durchsuchen. Es ist natürlich nicht opti- 
mal, jedesmal vom Programmanfang an zu 
suchen. 

Hat die Zeilennummer, zu der verzweigt 
werden soll, eine höhere Zeilennummer 
als die Zeile mit dem Sprungbefehl, so be- 
ginnt der Interpreter den Suchvorgang erst 
hinter dieser Programmzeile, da die ge- 
suchte Zeile garantiert (auf Grund des Sy- 
stems der aufeinanderfolgenden Zeilen) 
erst später folgt. 

Hat die gesuchte Zeile jedoch eine kleinere 
Zeilennummer als die Sprungzeile, so 
bleibt dem Computer keine andere Wahl, 
er muß das Programm vom Anfang an un- 
iersuchen. 

Eine Zeile wird also vom Interpreter dann 
besonders ■ schnell gefunden, wenn sie 
möglichst nahe am Anfang des Programms 
steht, oder wenn sie möglichst bald nach 
der aufrufenden Zeile kommt. 
Wenn das aufzurufende Unterprogramm 
häufig (z.B. in einer Schleife) angesprun- 
gen werden muß, so läßt sich auf dieser Art 
unter Umständen einige Zeit einsparen. 
Natürlich läßt sich das nicht immer mit 
dem gut strukturierten Programmierstil 
verbinden, aber in zeitkritischen Program- 
men sollte man dieser Methode dann trotz- 
dem Vorrang gewähren. 
Durch geschickte Verwendung von Varia- 
blen läßt sich ebenfalls einiges an Rechen- 



zeit einsparen: 

Es ist ein Vorurteil, daß einfache Integer- 
Variablen (sofern sie im Basic enthalten 
sind) einen Geschwindigkeitsvorteil brin- 
gen. Beim Apple und beim C64 werden In- 
teger-Variablen mit dem '%'-Zeichen ge- 
kennzeichnet. Sie haben einen Rechenbe- 
reich von -32768 bis +32767 und können, 
wie ihr Name schon sagt, nur ganze Zahlen 
enthalten. Sie werden häufig eingesetzt, 
um Speicherplatz und Zeit zu sparen. Ein- 
fache Integer-Variablen (wie z. B. A%) spa- 
ren jedoch noch nicht einmal ein einziges 
Byte des kostbaren Speicherplatzes. Zwar 
benötigen sie zur Darstellung ihres Zah- 
lenbereichs nur 16 Bit, also 2 Byte, (Fließ- 
kommavariablen benötigen normalerwei- 
se 5 Byte, um ihren Bereich abzudecken), 
die eingesparten 3 Byte werden jedoch mit 
Null-Bytes gefüllt, um mit ein und dersel- 
ben Routine auf Integer- und Floating- 
Point-Variablen zugreifen zu können. Das 
liegt daran, daß beide Variablentypen nor- 
malerweise in einem Speicherbereich lie- 
gen. Verwendet man jedoch dimensionier- 
te Integer-Vektoren (Arrays), so werden 
pro Wert wirklich nur 2 Byte gespeichert, 
denen dann eine eigene Routine zur Verfü- 
gung steht. Der Grund dafür, daß diese 
auch keine Rechenzeit einsparen, liegt dar- 
in, daß sie zu interen Rechnungen zu- 
nächst ins Fließkommaformat umgewan- 
delt werden müssen. Die Integer-Vektoren 
sparen also keine Zeit ein, sondern können 
nur „langsam" verarbeitet werden, wie das 
nachfolgende Beispiel zeigt: 



30 NEXT I 
Zeitdauer: ca. 



22 Sekunden 



Programm 1: 

10 FOR 1=1 TO 2000 

20 A°/cf=A%-I-1 

30 NEXT I 

Zeit: ca. 9.25 Sek. 



Programm II: 

10 FOR 1=1 TO 2000 

20 A=A+1 

30 NEXT I 

Zeit: ca. 8.09 Sek. 



Das „Fließkomma-Programm" benötigt 
mehr als eine Sekunde weniger als das ent- 
sprechende „Integer-Programm". 
Weitere kostbare Rechenzeit (diesmal so- 
gar extrem viel) kann man einsparen, wenn 
man häufig benutzte Zahlenkonstanten 
am Anfang eines Programms einer Varia- 
blen zuweist: 



Programm II: 
5 A=3.25 E 17 
10 FOR 1=1 TO 2000 
20A=B 
30 NEXT I 

Zeitdauer für dieses Programm: 
ca. 5.1 Sekunden 



Der Grund für die vierfache Geschwindig- 
keit des zweiten Programms liegt darin, 
daß bei Programm I die Konstante 3.25 E 17 
zweitausend mal in eine Fließkommazahl 
umgewandelt, werden muß, während sie 
bei Version II bereits nach Zeile 5 als FHeß- 
kommazahl in Variable B gespeichert ist. 
Einige Variablen werden in Basic-Pro- 
grammen besonders häufig benutzt. Nor- 
malerweise sind dies die Laufvariablen 
und Zähler für Schleifen. Wie die beiden 
folgenden Programmen zeigen, ist es 
durchaus sinnvoll, diese oft gebrauchten 
Variablen ganz am Anfang eines Program- 
mes vor allen anderen Variablen einmal zu 
benutzen (z.B. auf Null setzen). Die Inter- 
preter legen nämlich die Variablen in der 
Reihenfolge ihres Auftretens im Pro- 
gramm im Speicher ab. Wird eine ange- 
sprochen, so muß der gesamte Variablen- 
Speicherbereich nach der Variable durch- 
sucht werden. Dann ist natürlich klar, daß 
häufig benutzte Variablen günstigerweise 
ganz am Anfang der Liste stehen und somit 
am Anfang des Programms einmal benutzt 
werden müssen. 



Programm I: 










10 A=0:B=0:C- 


=0:D= 


=0:E= 


=0:F= 


=0: 


G=0:H=0:0: 


=0:P= 


=0:0= 


-O 




20 FOR 1=1 TO 2000 








30I=I:J=A 










40 NEXT I 










Zeit ca. 10.24 Sekunden 







Programm II: 










5 ]=0:J=0 










10 A=0:B-0:C= 


=0:D= 


0:E= 


=0:F= 


-O: 


G=0:H=O:0^ 


=0:P= 


=0:Q= 


=0 




20 FOR 1=1 TO 2000 








30 J=I:J=A 










40 NEXT I 










Zeit ca. 7.36 Sekunden 









Programm I: 

10 FOR 1=1 TO 2000 

20A=3.25E 17 



'Wenn am Ende eines BASIC-Unterpro- 
gramms vor dem Rücksprung ein weiteres 
Unterprogramm aufgerufen werden muß, 



Lesen Sie weiter auf Seite 85 
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CHECKSUMMER 1.0 CPC, ist für den 

CPC 464/664 entwickelt worden. 
Wie funktioniert unser Checksummer? 
Tippen Sie zunächst das Programm in Ih- 
ren Computer ein. Bei der Eingabe ist zu 
beachten, daß auch alle Zwischenräume 
(Leerzeichen) mit dem Listing überein- 
stimmen. Die REM-Zeilen müssen eben- 
falls mitübernommen werden. 

Sichern Sie das Programm auf KASSETTE 
oder Diskette bevor Sie es starten! 

Nachdem Sie es gespeichert haben, akti- 
vieren Sie das Programm mit „RUN 
65200". Es erscheint die Meldung: 
CHECKSUMMER AKTIV FUNK- 
TIONSTASTE 0. Dies bedeutet, wenn Sie 
die Taste des Zehnerblocks betätigen, 
wird der Checksummer aufgerufen. 
Speichern Sie das Programmjetzt mit dem 
Befehl SAVE "CHECKV1",A auf Kassette 



oder Diskette ab. Nur so können Sie es spä- 
ter mit Merge an Ihre Programme anhän- 
gen. 
Wie benutzt man den Checksummer? 

Wenn Sie ein Programm mit CHECK über- 
prüfen wollen, laden Sie zunächst das zu 
prüfende Programm (wenn Sie's nicht oh- 
nehin schon im Speicher haben), dann ge- 
ben Sie den Befehl MERGE "CHECKV1" 
um das Prüfprogramm anzuhängen. Wich- 
tig ist, daß das zu prüfende Programm kei- 
ne Zeilennummer besitzt, die größer als 
65199 ist. Jetzt aktivieren Sie den Check- 
summer mit RUN 65200. Nun kann jeder- 
zeit die Prüfung mit der Funktionstaste 
aufgerufen werden. Vergleichen Sie je- 
weils die im Heft abgedruckten Prüfsum- 
men mit denen, die Ihr Programm ausgibt. 
Falls Sie einmal einen Fehler feststellen, 
müssen Sie nicht das Programm neu laden, 
sondern können ihn normal berichtigen 



und dann wieder mit der Funktionstaste O 
das Check-Programm starten. Möchten Sie 
den Checksummer löschen, geben Sie ein- 
fach den Befehl DELETE 65200-ein. 
Anmerkung zu Checksummer 1.0 CPC: 
Groß-Kleinschreibung beachten! 
Leerzeichen innerhalb einer Zeile müssen 
dem ORIGINAL-Listing entsprechen! 
Leerzeichen am Ende einer Zeile werden 
ignoriert! 

Umgewandelte TOOKEN werden automa- 
tisch in den Ursprungswert zurückgesetzt! 
REM-Zeilen müssen eingegeben werden! 



Unser Spezialist Frank Brall 
arbeitet zur Zeit an einem 

Checksummer für C-16/116. 

Also C-16-Fans achtet auf die 

nächste Computronic-Ausgabe! 



ACHTUNG: Einige Listings enthalten das Zeichen "-", dieses Zeichen entspricht dem Pfeil nach 



links (Taste ganz links oben). 



Das Zeichen " a " steht für den Pfeil nach oben. 



Das Zeichen * \ " steht für das (engl.) Pfund-Symbol. (Taste neben Restore). 



65200 '**-* Tronic CPC Checksummer #** 
65210 *** Autor Frank Brall 1985 -**# 



?20 



VERB ION 1,0 



65230 KEY 128 , "65530 REM TRONIC" +CHR$ < 13 

> + "ri_tn 65250"+CHR*C13J 

65240 PR INT: RR INT "CHECKSUMMER AKTIV FUN 

KT IONSTASTE O"; PRINT; END 

65250 CLS; PRINT "Tronic -Verlag Check summe 

r Version l.O" 

65260 PRI NT : PR I NT : PR INT : PR I NT " <B> I LDSCH I 

RM <D>RUCKER" 

65270 E*=INKEV*:E*=LOWER*(E±) : IF E$=" " T 

HEN 65270 

652SO IF E*="b" THEN a=Ü:GÜTO 65310 

6529Q IF E*="d 1 ' THEN a=S:GOTG 65310 

65300 GOTO 65200 

653 1 ADRE5S=36S : GCHECK=0 s CLS : FR I NT# A „ " C 

HECK VIsPRUEFSUMMENs " : PRINT#A: PRINT#A, "Z 

ElLENNR.s SUMMEN" 

65320 LAENGE- i PEEK < ADRESS+ 1) *256 > +PEEK < A 

DRESS) 

6533Ü ZNUM- (PEEK (ADRESS+3) *256> +PEEK < ADR 

ESS+2) 

65340 IF ZNUM=65200 THEN IF F=0 THEN 654 

SO ELSE PRINT #A, USING "#####"; ZNUM1 ;: P 

RINT#A f "- "5 :PRINT#A, ": " ; :PRINT #A , 

USING "######" ;ZCHECK:F=0; GOTO 654S0 

65350 IF ZNUM=655ÖG THEN 65510 

65360 ZCHECK=0:FOR 1=0 TO LAENSE-6 



65370 WERT=PEEK(I+ADRESS+4) 

65380 IF WERT =32 THEN 654 10 

65390 ZCHECK=ZCHECK+WERT+(I*WERT) 

65400 IF ZCHECK>65535 THEN ZCHECK=ZCHECK 

-65536: GDTO 65400 

65410 NEXT I 

65420 IF F=0 THEN ZCHECK1=ZCHECK; ZNUMi=Z 

NUN: ADRESS=ADRE5S+LAENGE: F=l i GOTO 65320 

65430 F=0:ZNUM2=ZNUM 

65440 PRINT #A, USING "#####"; ZNUM1 ;: PRIN 

T#A, "-"; s PRINT #A,USING "#####"; ZNUM2; : P 

RINT#A, '*!";: PRINT #A . USING "######" ; Z CHE 

CK+ZCHECK1 

65450 GCHECK=GCHECK+Z CHE CK +Z CHECK 1 

65460 IF GCHE0065535 THEN GCHECK=ßCHECK ■ 

-65536; GOTO 65460 

65470 ADRESS=ADRESS+L AENGE; GOTO 65320 

65480 PRINT#A, " 

6549Q PRINT #a , "GESAMTCHECKSUMME; "GCHEC 

K 

65500 GCHECK=0:A=0:PRINT#AsPRINT#A, "CHEC 

KSUMMER SELBSTTEST I " : GOTO 65360 

65510 IF SCHECK=6207S THEN PRINT#A," — EN 

DE— " sEND 

65520 PRINT "FEHLER IM CHECKSUMMER ! " ; SÜ 

UND 1 , 1 00 , 500 

65530 REM TRONIC 



H 



rti 



„Fix und fertigt ist der Cheeksummer 1.0 CPC natürlich auch erhältlich. Einfach anfordern unter: 
Bestellnummer: SRV 1ÖK (Kassette) . . .10 DM SRV 10D (Diskette) .. , 20 DM 
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Gonrgputronic 



„Mdnight" 



Geschicklichkeitsspiel für den Schneider-Computer 



Auf der Jagd nach der Schatztruhe des Spukhauses! 



Ziel des Spiels ist es, die im Spukhaus de- 
ponierte Truhe zu erreichen. Dabei müs- 
sen die Euch feindlich gesinnten Geister 
und die Feuerkugel übersprungen werden, 
v/eil jede Berührung mit ihnen ein Leben, 
von denen Ihr insgesamt drei besitzt, ko- 
stet. Die Spieße in der 1. und 3. Etage müs- 
sen ebenfalls übersprungen werden. Um 
die Truhe auch öffnen zu können, müßt Ihr 
vorher im 3. Stock durch einen Sprung ei- 
nen unsichtbaren Lichtschalter berühren. 
Danach wird im 2. Stock ein Schiüssel 
sichtbar, der ebenfalls per Sprung erreich- 
bar ist. Im 5. Stockwerk versperrt Euch der 
dortige Etagengeist den Zugang zur Truhe. 
Erst wenn der Geist mit Hilfe eines Pfahls 
aus dem Weg geräumt ist, kann die Truhe 
in Euren Besitz gelangen. Es wird gegen 
die Uhr gespielt, d. h. wenn der Mond von 
links nach rechts seinen Weg beendet hat, 
wird ein Leben abgezogen. Ihr besitzt aller- 
dings auch die Möglichkeit das Haus vor- 
her zu verlassen, so daß zwar Punkte, aber 
keine Leben verloren gehen. (S.G.) 




„Hähähähähä, kommt nur her. Ich werde Euch das Fürchten lehren! 



Achtet darauf, daß Ihr auf dem Weg zur Schatztruhe nicht Euer kostbares 



Leben verliert! 




Steuerung: Gespielt wird mit Joystick, gesprungen wird durch Drük- 
ken des Feuerknopfes und Halten des Joysticks in Sprungrichtung. 



MIDNIGHT-Vorprogramm 



G 
E 
I 

s 

T 
E 
R 



5 REM zeichen 

10 SYMBOL AFTER 129 

15 SYMBOL 129,0,24,28,24, 16 ,Ü,O,0 

20 SYMBOL 130,0,0,0,0,0,56,56,92 

25 SYMBOL 131,94,90,0,0,0,0,0,0 

30 SYMBOL 132,0,0,24,24,36,36,68,70 

35 SYMBOL 133,0,0,24,24,24,24,40,44 

40 SYMBOL 134,0,24,56,24,8,0,0,0 

45 SYMBOL 135,0,0,0,0,0,28,28,58 

50 SYMBOL 136,122,90,0,0,0,0,0,0 

55 SYMBOL 137,0,0,24 ,24, 36, 36,34, 9B 

60 SYMBOL 138,0,0,24,24,24,24,20,52 

65 SYMBOL 139,0,24,24,24,0,0,0,0 

70 SYMBOL 140,0,0,0,0,0,60,60,90 

75 SYMBOL 141,90,90,0,0,0,0,0,0 

SO SYMBOL 142,0,0,24,24,36,36,36,36 

85 SYMBOL 143,0,0,0,0,24,28,24,16 

90 SYMBOL 144,26,30,28,24,24,0,0 

95 SYMBOL 145,0,0,0,0,6,30,26,3 

100 SYMBOL 146,0,0,0,0,24,56,24,8 

105 SYMBOL 147,88,120,56,24,0,0,0 

110 SYMBOL 148,0,0,0,0,96,120,88,192 

115 SYMBOL 149,56,84,168,124,50,48,96,64 



120 SYMBOL 
125 SYMBOL 
130 SYMBOL 
135 SYMBOL 
140 SYMBOL 
145 SYMBOL 
150 SYMBOL 
155 SYMBOL 
160 SYMBOL 
127 

165 SYMBOL 
170 SYMBOL 
175 SYMBOL 
ISO SYMBOL 
55,129 
185 SYMBOL 
190 SYMBOL 
195 SYMBOL 
20O SYMBOL 
,224 

205 SYMBOL 
210 SYMBOL 
215 SYMBOL 
220 SYMBOL 
225 SYMBOL 
9.255 



IST ANGESAGT . 




>jraputromic 
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G& 



230 SYMBOL 171 ,0,44,60, 12t, 126, 60,52, 16 

235 SYMBOL 172,24, 60, 60, 126, 126,255,255, 

255 

240 SYMBOL 173,255,255,255,126,126,60,60 

,24 

245 SYMBOL 174,0,0,0,0,0,20,62,255 

250 SYMBOL 175,1,3,15,15,29,27,63,63 

255 SYMBOL 176,127,127,55,127,123,47,63, 

127 

260 SYMBOL 177,63,61,31,11,15,7,3,3 

265 SYMBOL 178*128,192,240,240,184,216,2 

52,252 

270 SYMBOL 179,254,190,236,254,222,244,2 

275 SYMBOL 180,252, 188, 24B, 208, 240, 224, 1 

92,192 

280 SYMBOL 181,243,243,242,246,246,254,1 

26,126 

2B5 SYMBOL 1B2, 126, 126, 126,62, 126, 126, 12 

4,126 

290 SYMBOL 183,7,3,3,3,3,3,3,3 

295 REM bald 

300 INK 0,10: INK 1,0t INK 2, 17: INK 3,19:M 

ODE 1* BORDER 10 

305 a*="Mi dni ght " s x = l 10: y=200: xr=5s yr=10 

:p=l:v=-2=G0BUB 325 

310 LOCATE 5, 14= PEN 2: PRINT" von Martin W 

olfgramm <c) 1985" 

315 LOCATE 4,24:PEN 3:PRINT "Bitte warte 

nrLoading ":: PRINT: PRINT 

320 RUM "'Mi dni ght 1" 

325 PEN p: LOCATE 1,1: PRI NT a* 

330 FOR n=384 TO 400 STEP 2 

335 FOR i=l TO LEN<a*)#16 STEP 2 

340 I F TEST < i , n > <>p THEN 350 

345 FOR r=0 TO xr-l;PLOT r+x ,y ,ps DRAWR O 

,yr,psNEXT 

350 x=x+xrsNEXT i 

355 x=x~LEN(a*)*8#xr+v:y=y+yr:NEXT 

360 RETURN 





CHECK VI 


=PRUEFBUKMEN: 
























18S- 


190: 


25325 






ZEILENNR 




SUMMEN 






1<J5- 


200: 


43296 






5- 


lOs 


1Ö75S 






205- 


210: 


28603 






15- 


aoi 


20743 






215- 


220: 


229B2 






25- 


y.C: 


2279« 






225- 


230: 


59019 






35- 


40: 


2 US*. 






235- 


240: 


60091 






45- 


50r 


1BS52 






24S- 


250: 


28116 






55- 


60: 


2563t 






255- 


260: 


34136 






65- 


70: 


2022B 






265- 


270: 


B4692 






75- 


SO: 


21226 






275- 


2BO: 


77533 






B5- 


90: 


18376 






235- 


290: 


33362 






95- 


lOO: 


17792 






295- 


30O: 


2B737 






105- 


110 = 


27640 






305- 


310: 


59716 






115- 


120: 


43209 






315- 


320: 


17729 






125- 


130: 


29 ISO 






325- 


330: 


25349 






135- 


140: 


23791 






333- 


340: 


51643 






145- 


ISO: 


22327 






345- 


350: 


71445 






155- 
16S- 


160: 
170 = 


35170 
17136 






355- 


36Ö: 


49549 












175- 


ISO: 


46666 






GESAMTCHECkSUMME: 643S5 






MID 


N 


IGI 




r-i 


tlaupt] 


>ro 


gramm 




5 


REM #****#*******#***♦************** 


10 


REM * 
















* 


15 


REM * 






M 


i 


D N I G 


H 


T 


* 


20 


REM * 
















* 


25 


REM * 








(c) 


1985 von 




* 


30 


REM * 
















* 


35 


REM * 






Mart 


in Wol-f 


jramin 


* 


40 


REM * 
















* 



45 REM *##*****************#**#*#*#**** 



SO CLS 

55 REM zwi schenbi 1 d 

60 MODE 1: BORDER 10= INK 0,10: INK 1,6: INK 

2,0:INK 3,19=PAPER O 
65 hi sc=PEEK < 30000) *256+PEEK < 30001 ) 
70 LOCATE 17, 4s PEN isPRINT "Mi dni ght" 

75 LOCATE 16,5:PRINT " " 

80 LOCATE 4,7:PEN 2:PRINT " <c) 1985 v 

on Martin Wol-f gramm" 

85 LOCATE 4,9:PRINT "Hoechstzahl :"; hi sc 

90 LOCATE 4,ll:PRINT"Punkte : " ; sc 

95 LOCATE 4, 15s PRI NT "Steuerung : Joysti 

ck" 

100 LOCATE 4, 17: PRINT"Sprung s Feuer 

taste" 

105 LOCATE 4,I9:PRINT"Ende : Break 

—Taste" 

HO LOCATE 4,24: PEN 3:PRINT "Druecke Tas 

te" 

115 FOR i=l TO 2:IF INKEY<66)=0 THEN GOT 

1630sNEXT i 

120 CALL &BB06 

125 CLEAR 

130 REM bi 1 dschirmau-fbau 

135 MODE 0:INK 0,0: BORDER 0: PAPER 0: INK 
1,16: INK 2,6: INK 3,11: INK 4,23: INK 5,25s 
INK 6,24s INK 7,3s INK 8, 17: INK 9,15: INK 1 
0,7:INK 11,10:INK 12,9:INK 13,18:INK 14, 
B:INK 15,26 

140 WINDOW #1,1,20,25,25 

145 h i *sc=PEEK < 30000 ) »256+PEEK ( 3000 i):sc= 
0:liv=3:RAND0MIZE TIME 

1 SO nx=3: nyo=22: nyu=23: gy < 1 ) =23 : gy < 2) =20 
sgy (3)=17:gy (4) =1 1 : *y=14s f =16: p=0= z=2: g= 
0:s=Q:zz=4sgn(I)=16:gn<2)=12:gn<3)=10:gn 
(4) =14: q=0: o=Os sp=0: ver=Os ps=0 
155 DIM b<20,25) ,m(20,25) ,g<20,25> 
160 ON BREAK GOSUB 1630: CLS = PRI NT CHR*<2 
2)s.CHR*<l) 

165 LOCATE 2, 13: PEN 12= PRINT CHR* (174) 
170 PRINT CHR* ( 1 75) ; CHR* ( 170); CHR* < 178) 
175 PRINT CHR* (176) i CHR* ( 170) ; CHR* (179) 
180 PRINT CHR* (176) ; CHR* ( 170) : CHR* ( 179) 
185 PRINT CHR* (177); CHR* (170); CHR* (ISO) 
190 LOCATE 2, 18: PEN 7: PRINT CHR* (181) 
195 FOR i=18 TO 21:LOCATE 2, i: PRINT CHR* 
(182) sNEXT i 

200 FOR i=l TO 4:L0CATE i,23sPRINT CHR* < 
I70):NEXT i 

205 FOR i=l TO 4:PEN 13:LDCATE i,22:PRIN 
T CHR* (170) sNEXT i 

210 FOR i=l TO 2O:L0CATE i,24:PRINT CHR* 
<170) sNEXT i 

215 LOCATE 20,23: PRINT CHR* ( 170) : LOCATE 
20,22: PRINT CHR* (170) 
220 j=12:F0R i=5 TO 9:j=j-l:PEN 2: LOCATE 

i,j:PRINT CHR*<166):NEXT i 
225 FOR i=10 TO 14sLÜCATE i»6sPRINT CHR* 
(168) :NEXT i 

230 j=6:F0R i = 15 TO 19: j=j+l i LOCATE i,js 
PRINT CHR*(167) :NEX,T i 

235 LOCATE 16,8: PEN 1 IsPRINT CHR* (169) 
240 LOCATE 16,7sPRINT CHR* ( 170) : LOCATE 1 
6,6: PRINT CHR* (170) 
245 PEN ISsLOCATE 16,5: PRINT CHR*(171):L 



66 



Computronic 




am 



S<****** 



OCATE 17,4: PRINT CHR* £171) 

250 FÜR ii=12 Tu 23s PEN 1 1 s LOCATE 20,ii: 
PRINT CHR*(165):b(20,ii)=i65:NEXT ii 
255 FOR i = 12 TG 21: LOCATE 4, i: PRINT CHR* 
£164) :b£4,i)=164:NEXT i 

260 LOCATE 4,22: PEN 9 s PRINT CHR* £183) 
265 LOCATE 4, 23: PRINT CHR* £183) 
270 FÜR i=8 TO 16: PEN 1 1 : LOCATE i,9:PRIN 
T CHR*£163):b£i ,9) =163: NEXT i 
275 FOR j=12 TO 21 STEP 3 

2B0 FOR i=5 TO 19s LOCATE i,j: PRINT CHR* £ 
163) :b£i , j)=163sNEXT i 
285 NEXT j 

290 RESTORE 305: PRINT CHR* £22) ; CHR* (O) : F 
OR a=I TO 12: READ i,j 

295 LOCATE i,ji PRINT CHR* £161 ) : b (i , j)=16 
IsNEXT a 

300 PRINT CHR*(22):CHR*C1) : GOTO 310 
305 DATA 17,12,17,13,17,14,5,15,5,16,5,1 
7, 5, IS, 5, 19, 5, 20, 19, 21, 19, 22, 19,23,0,0,0 
,0,0,0,0,0 

310 RESTORE 325: FOR a=l TO 5 i READ i,j 
315 LOCATE i,j:PRINT CHR*<162) :b (i , j ) =16 
2s NEXT a 
320 GOTO 330 

325 DATA 12,9,10,12,14,15,15,18,9,21 
330 LOCATE 7,11:PEN 7: PRINT CHR*£157):b< 
7,il)=157 

335 LOCATE 12, 17: PEN 8: PRINT CHR*(156):b 
<12,17)=156 

340 LOCATE 11, 23: PRINT CHR* ( 156) : b ( II ,23 
)=156 

345 RESTORE 360: FOR a=l TO 5 s READ i,j 
350 LOCATE i,j:PEN 9: PRINT CHR* C 158) : b <i 
,j)=15S:NEXT a 
355 GOTO 365 

360 DATA 12,12,8,15,8,18,17,18,7,21 
365 i=INT(RND*9)+S:IF i=12 THEN SOTO 365 
370 LOCATE i,9:PEN 7; PRINT CHR* ( 160) : b £i 
,9)=160 
375 a=RND 
3B0 IF a>0.5 THEN b£7,18)=l ELSE b£8,18) 

385 a=RND 

390 IF a>0.5 THEN b< 12,21)=! ELSE b<13,2 

1)=1 

395 i=INT£RND*14)+6: IF i=14 OR 1=8 THEN 

BOTO 395 

400 b(i ,15) =2 

405 LOCATE 18, 13: PEN lOsPRINT CHR* (ISO) 

410 LOCATE 18, 14: PRINT CHR* £ 151 ) : b £ 18, 14 

) = 165 

415 LOCATE 19,13:PEN 9: PRINT CHR* £152) 

420 LOCATE 19, 14: PRINT CHR* £ 153) : LOCATE 

I9,14:PEN 6:PRINT CHR*£I54) 

425 RESTORE 435: FOR a=l TO 4: READ i,j 

430 b£i , j) =3: NEXT a:SOTO 440 

435 DATA 17,11,6,17,5,14,19,20 

440 b£18,ll)=165:b(6,ll)=164:b£17,9)=162 

:b£7,9)=162 

445 LOCATE #1,2, 25: PEN #1,14: PRINT #1,"L 

EBEN : ":liv 

450 REM hauptprogranrsm 

455 LOCATE z,2:iPEN 15: PRINT CHR*(172):L 
OCATE z, 3: PRINT CHR* £ 173) : e=133 



460 LOCATE nx,nyo:PEN 1: PRINT CHR* £129) 

465 LOCATE nx,nyosPEN 2: PRINT CHR4U3Ö) 

470 LOCATE nx,nyu:PEN 2: PRINT CHR* £131) 

475 LOCATE nx,nyu:PEN 3: PRINT CHR*fe):50 

UND 1 , 2OO0 ,2,5,,,2!ax=nx: ay o=ny o : ayu=nyu 

480 IF q=l THEN RETURN 

485 FOR a=l TO 750: NEXT a 

490 PRINT CHR* £22) ; CHR* £0) 

495 LOCATE 4,22:PEN 13:PRINT CHR*£170> 

500 LOCATE 4,23: PEN 7: PRINT CHR*fl70) 

505 nn=nx+l 

510 q=l: LOCATE ax,ayo:PEN 13: PRINT CHR* £ 

170) 

515 LOCATE ax,ayu:PEN 7: PRINT CHR* £170) 

520 PRINT CHR* £22) : CHR* £ 1 ) :e=132: GOSUB 4 

60 

525 FOR a^l TO 750:NEXT a 

530 q=l: PRINT CHR* £22) ; CHR* £0) : nx=nx+l 

535 LDCATE ax,«yo:PEN 13: PRINT CHR* £170) 

540 LDCATE ax,ayu:PEN 7: PRINT CHR* £170): 

bfax,ayu)=4 

545 PRINT CHR* £22) ; CHR* £ 1 ) :e=133sG0SUB 4 

60:q=0 

550 ON BREAK GOSUB 1630 

555 xa=5:ayo=22: ayu=23 : x n=S : nyo=22 : nyü=2 

3 

560 gn £ 1 ) =16: gy ( 1 ) =23: gn £2) =12s gy <2) =20: 

gn£3)=iO:gy£3)=17sgn(4)=14:gy £4)=ll=ga£l 

) = 16sga£2)=12:ga£3) = 10:ga£4)=14;-F=16:*a= 

16:*y=14 

565 REM Joystick 

570 ON BREAK GOSUB 1630 

575 po=po+l:IF po=40 THEN po=0: GOSUB 159 

5 

580 IF J0Y(0)=4 AND b (xn-1 ,nyu) <>164 THE 

N GOTO 635 

585 IF J0Y(0)=8 AND b (xn+1 ,nyu) <>165 THE 

N GOTO 710 

590 IF J0Y£0)=1 AND b (xn ,nyu) =161 THEN n 

yo=nyo-l :nyu=nyu-l sGOTO 790 

595 IF JOY£0)=2 AND b (xn ,nyu+l ) =161 THEN 

nyo=nyo+i : nyu=nyu+l s GOTO 790 
600 IF JOY<0)=20 AND b £xn ,nyo-l ) <>162 TH 
EN GOTO 860 

605 IF J0Y<0)=24 AND b £xn ,nyo-I ) <>162 TH 
EN GOTO 1010 

610 FOR a=l TO 400: NEXT a 

615 *ps=ps+l: IF ps=3 THEN ps=0:GOSUB 1300 
620 GÜSUB 1365 

625 sp=sp+l:IF sp=19 THEN sp=0:SDSUB 125 
5 
630 GOTO 570 

635 REM link^ gehen 

640 IF b<nx-l,nyo)=163 OR b £nx~l ,nyu) =16 

3 THEN GOTO 570 

645 DI :PRINT CHR* £22) ; CHR* <0) : LOCATE xa, 

ayo 

650 DIsIF b £xa,aya)=16i THEN PEN 11:PRIN 

T CHR* £161) ELSE DI: PEN O: PRINT " " 

655 LOCATE xa,ayu 

660 DI:IF b (xa,ayu) =161 THEN PEN llsPRIN 

T CHR* £161) ELSE DI: PEN O: PRINT " ":PRIN 

T CHR* £22) ;CHR*<1) 

665 m £ x a , ayu ) =0 

670 xn=xn— 1 : xa=xn: ayo=nyo: ayu=ayu 
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675 DI: LOCATE xn, nyo: PEN 1: PRINT CHR* (13 

4) 

680 LOCATE xn, nyo: PEN 2s PRINT CHR* < 135) 

685 LQCATE xn,nyu:PEN 2: PRINT CHR* (136) 

690 IF e=137 THEN e=I38 ELSE e=137 

695 LOCATE xn,nyu:PEN 3: PRINT CHR*(e) 

700 SOUND 1,2000, 2, 5,,, 2 

705 EI: GOSUB 1205: GOTO 615 

710 REM -rechts gehen 

715 IF b(xn+l,nyo>=163 OR b(xn+i,nyu)=16 

3 THEN GOTO 57Ö 

720 DI:PRINT CHR* ( 22 > jCHR*<0> : LOCATE xa, 

ayo 

725 DIsIF b (xa,ayo)=16I THEN PEN lisPRIN 

T CHR* (161) ELSE DI: PEN OiPRINT " " 

730 LOCATE xa,ayu 

735 DIslF b(«a,ayu)=157 THEN PEN 7:PRINT 

CHR* (157) 
740 DIsIF b<xa,ayu)=161 THEN PEN lliPRIN 
T CHR* (161) ELSE DI: PEN 0:PRINT '* " 
745 m(xa,ayu)=0;PRINT CHR* (22) ; CHR* (1 ) 
750 xn=xn*l : xa=xn: ayo=nyoj ayu=nyu 
755 DI. -LOCATE xn, nyo: PEN 1:PRINT CHR* ( 12 
9) 

760 LOCATE xn, nyo: PEN 2:PRINT CHR* (130) 
765 LOCATE xn,nyu:PEN 2: PRINT CHR* (131) 
770 IF e=132 THEN e=133 ELSE e=132 
775 LOCATE xn,nyu: PEN 3:PRINT CHR*(e) 
780 SOUND 1,2000,2,5, „2 
785 mUn,nyu)=l:EI:GOSUB 1205:GQT0 615 

790 REM oben/unten gehen 

795 DIsPRINT CHR* (22) $ CHR* (0) : LOCATE xa, 

ayo 

SOO DI:IF b(xa,ayo)=161 THEN PEN 1I:PRIN 

T CHR* (161) ELSE DI: PEN 0:PRINT " " 

805 LOCATE xa,ayu 

810 DI:IF b<xa,ayu)=161 THEN PEN Ü:PRIN 

T CHR* (161) ELSE DI: PEN Ö:FRINT " ":n)(xa 

,ayu) =Ö 

815 PRINT CHR*(22) : CHR* ( 1 ) 

820 x a=x n : ayo=nyo : ayu=nyu 

825, DI: LOCATE xn,nyo:PEN 1: PRINT CHR* (13 

9) 

B30 LOCATE xn, nyo: PEN 2: PRINT CHR*<140) 

835 LOCATE xn,nyu:PEN 2: PRINT CHR* (141) 

S4Ö LOCATE xn,nyu:PEN 3: PRINT CHR* (142) 

845 SOUND 1,2000,2,5,, ,2 

BSO m(xn,nyu)=l: EI: GOSUB 1205: IF o=l THE 

N RETURN 

B55 GOTO 615 

860 REM links springen 

865 IF b<xn,nyo-l)=ibI THEN GDTO 570 

870 DI: PRINT CHR* (22) ; CHR* (O) : LOCATE xa, 

ayo: PEN 0: PRINT " " 

875 LDCATE xa,ayu:PEN O: PRINT " " 

B80 ra(xa,ayu)=0 

B85 xn=xn; nyo=nya-i : nyu=nyu-l 

B90 PRINT CHR*(22);CHR*<1) 

895 ENV 5,5,2,6 

900 SOUND 1,120, 0,2, 5,, 5 

905 LOCATE xn,nyo:PEN 1: PRINT CHR* (146) 

910 LOCATE xn,nyusPEN 2s PRINT CHR* (147) 

915 LOCATE xn,nyu:PEN 3: PRINT CHR* (148): 

GOSUB 1560 

920 FOR i = l TO 2:DIsIF b (xn-1 ,nyo) =162 T 



HEN GOTO 980 

925 IF b (xn-1 , nyo) =164 THEN 980 

930 IF b (xn-1, nyo) =161 THEN 9BO 

935 xa=xn: ayo=nyo: ayu=nyu 

940 PRINT CHR* (22): CHR* (0) 

945 LOCATE xa, ayo: PEN 11: PRINT CHR* (163) 

950 LOCATE xa,ayu:PEN O: PRINT " " 

PRINT CHR*(22);CHR*(i)sxn=xn-l 

LOCATE xn, nyo: PEN 1: PRINT CHR* (146) 

LOCATE xn,nyu:PEN 

LOCATE xn,nyu:PEN 

GOSUB 1560:NEXT i 

DI: PRINT CHR* (22) ; 



955 
960 
965 
970 
975 
980 
985 
990 



2:PRINT 
3: PRINT 



CHR* (147) 
CHR* (148) 



;CHR*(0) 



xa=xn : ayo=nyo: ayu=nyu 

DI: LOCATE xa, ayo: PEN 11:PRINT CHR*(i 



63) 

995 DZ: LOCATE xa,ayu:PEN OiPRINT " " 

lOOO PRINT CHR* (22) ; CHR* ( 1 > 

1005 xa=xa:ayo=aya+l : ayu-ayu+1 : xn=xn: nyo 

=nyo+'i : nyu=nyu+ 1 • GOTO 675 

1010 REM rechts springen 

1015 IF b(xn,nyo-l)=161 THEN GOTO 570 

1020 DI: PRINT CHR* (22) ; CHR* (O) : LOCATE xa 

, ayo: PEN OiPRINT " " 

1025 LOCATE xa,ayu:PEN OiPRINT " " 

1030 m(xa T ayu)=0 

1035 xn=xn: nyo=nyo— 1 : nyu=nyu- 1 

1040 PRINT CHR* (22) ; CHR* ( 1 ) 

1045 ENU 5,5,2,6 

1050 SOUND 1,120,0,2,5, ,5 

1055 LOCATE xn, nyo: PEN 1: PRINT CHR* (143) 

iÜ&O LOCATE xn,nyu:PEN 2: PRINT CHR* (144) 

1065 LOCATE xn,nyu:PEN 3: PRINT CHR* (145) 

: GOSUB 1560 

1070 FDR i=l TO 2:DI:IF 

THEN GDTO 1130 

1075 IF b(xn+l ,nyo>=165 THEN 1130 

10B0 IF b(xn+l,nyo)=161 THEN 1130 

1085 xa=x n : ayD=nyo: ayu=nyu 

1090 PRINT CHR* (22) ; CHR* (O) 

1095 LOCATE xa, ayo: PEN IlsPRINT CHR* (163 

> 

LOCATE xa,ayu:PEN Os PRINT " " 
PRINT CHR*(22);CHR*(l)sxn=xn+l 
LOCATE xn, nyo: PEN 1: PRINT CHR* (143) 
LOCATE xn,nyu':PEN 2: PRINT CHR* (144) 
LOCATE xn,nyu:PEN 3: PRINT CHR* (145) 
GOSUB 1560: NE XT i 
DIiPRINT CHR$(22) :CHR*(Ü) 
xa=xn:ayo=nyo: ayu=nyu 
LOCATE xa,ayo:PEN 11: PRINT CHR*<1£3 



b (xn+l,nyo)=162 



HOO 

1105 

1110 

1115 

1120 

1125 

1130 

1135 

1140 

) 

1145 

1150 

1155 



LOCATE xa,ayu:PEN 0: PRINT " " 

PRINT CHR* (22) ; CHR* ( 1 ) 

xa=xa: ayo=aya+l : ayu=ayu+i: xn=xn:nyo 
=nyo+l:nyu=nyu+liGQTO 755 

1160 REM -fallen 

1165 ENV 2,5,2,1,5,-3,2 

1170 SOUND 3,250,0,4,2, ,10 

1175 FOR 1=1 TO 3 

I180 nyo=nyo+l:nyu=nyu+l:o=l: GOSUB 790 

1185 NEXT i:o=0 

119Ö PRINT CHR* (22) : CHR* (Ö) 

1195 LOCATE xn,nyo-l:PEN IlsPRINT CHR* ( 1 

63) : b (xn ,nyo— 1 ) =1 
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1200 B0T0 570 

1205 REM ueber prue-fung 1 

1210 IF g(xn,nyu)=10 AND p=2 THEN p=3: sc 

=sc+500:PEN #1,14:LDCATE #i ,2,25: PRINT # 

1 , "Punktes " ; sc; ; zz=3: g (xn , nyu) =0 

1215 IF b(xn,nyu)=3 THEN sc=sc+4Ö: PEN #1 

,14:LOCATE #1 ,2,25: PRINT #1 , "Punktes ";s 

c; :b (xn,nyu) =0 

122Ö IF g (xn,nyu)=149 THEN GOTO 1455 

1225 IF b (xn,nyu)=156 THEN GOTO 1455 

1230 IF bUn,nyu)=4 THEN ver=l: sc=sc-508 

PEN #1,1 4s LOCATE #1 ,2,25: PRINT #1 , "Punkt 

ei "; sc;: GOTO 1455 

1235 IF b(xn,hyu)=157 AND p=3 THEN sc=sc 

+500: PEN #1,14: LOCATE #1 ,2,25; PRINT #1," 

Punkte: "; sc;: GOTO 1415 

1240 IF b(xn,nyu+l)=l THEN GOTO 1160 

1245 IF g(xn,nyu)=10 THEN GOTO 1455 

1250 RETURN 

1255 REM mond 

1260 DI: PRINT CHR* (22) ; CHR* (O) 
1265 LOCATE z-l,2:PEN OiPRINT " " 
1270 LOCATE z-l,3:PEN O: PRINT " " 
1275 LOCATE z,2:PEN 15: PRINT CHR*(I72) 
1280 LOCATE z,3:PEN 15s PRINT CHR*<173) 
1285 IF z = 18 THEN INK 0,1 
1290 IF z=19 THEN GOTO 1455 



sPEN 0: PRINT " " 

1385 PRINT CHR*(22);CHR*(1> : LOCATE *,*y: 

PEN 9=PRINT CHR*<155)sg(*a,fy)=0:g(-f ,-fy) 

= 149 

1390 ENV 3,6,1,8 

1395 ENT 3,10,-2,2 

1400 SOUND 4,284,0,2,3,3,2 

1405 IF m<f f fy>=l THEN GOTO 1455 

1410 EI: RETURN 

1415 REM gewonnen- 1 — 

1420 ENT 1,5,1,1,10,-1,1,10,1,1,5,-1,1 

1425 RESTORE 1445 

1430 READ a,b:IF a=-i THEN BDTO 1450 

1435 SOUND 7,a,b,7,,l 

1440 BDTO 1430 

1445 DATA 478,20,0,10,478,20,426,40,506, 

45,478,300,-1,-1 

1450 INK 0,O:ERASE b,m,g:GOTO 150 

1455 REM verloren 

1460 rl=0:r2=0:r3=0 

1465 ENT 1,5,1,1,10,-1,1,10,1,1,5,-1,1 

1470 RESTORE 1490 

1475 READ a,b:IF a=-l THEN GOTO 1495 

1480 SOUND 7,a,b,5,,l 

1485 GOTO 1475 

1490 DATA 319,50,402,40,426,30,402,30,47 

8,300,-1,-1 
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1295 z=z+l:PRINT CHR* (22) j CHR* ( 1 ) : EI : RET 
URN 

1300 REM geister 

1305 FOR i=l TD zz 

1310 j=INT(RND*3)-l 

1315 ga(i)=gn(i) 

1320 gn (i)-gn(i )+js IF b (gn £i ) ,gy <i ) )00 

AND b<gn(i) ,ga(i) )<>156 THEN gnCi)=ga(i) 

:GOTO 1360 

1325 g(gati) ,gy(i)) =0: PRINT CHR*(22);CHR 

*(0) 

1330 IF b£ga(i> ,gy(i> )=156 THEN PEN 8:LO 

CATE ga£i) ,gy(i) : PRINT CHRS (1 56 ) ; : GOTO 1 

340 

1335 PEN O: LOCATE ga (i ) ,gy (i >: PRINT " " 

1340 PRINT CHR*(22) : CHR* ( 1 ) 

1345 PEN 4:IF i=4 THEN PEN 5 

1350 gCgn(i) ,gy(i) >=149: IF i=4 THEN g (gn 

(i) ,gy£i) )=10 

1355 LOCATE gn (i ) ,gy (i ): PRINT CHR* ( 149) ; 

: IF m(gn(i ) ,gy(i) )=1 THEN GOTO 1455 

1360 NEXT i: RETURN 

1365 REM Feuerkugel 

1370 +a=*:DI 

1375 +=+-l:IF b(f,fy)<>0 THEN PRINT CHR* 

(22) ;CHR*<0>: LOCATE +a,fy:PEN OsPRINT " 

":g(fa,-fy)=0: :f = 16:PRINT CHR* (22) : CHR* < I 

): EI: RETURN 

1380 PRINT CHR* (22) ;CHR*<0) : LOCATE *a,fy 



1495 INK 0,0:IF ver=i THEN Iiv=liv ELSE 

liv=liv-I 

1500 ver=0 

1505 IF liv=0 THEN GOTO 1515 

1510 ERASE b,m,g:GGTG 150 

1515 PEN llsPAPER 15: PRINT CHR* (22) ; CHR$ 

(O) 

1520 LOCATE 5, 14 i PRINT " 

1525 LOCATE 5, 15: PRINT " GAME OVER " 

1530 LOCATE 5,16:FRINT " " ■ 

1535 FOR a=l TO 2000: NEXT a 

1540 IF sc>hi5c THEN hisc=sc 

1545 hil=(hisc MO 

D 256) :hi2=INT(hist/256) 

1550 POKE 30000,hi2:P0KE 30001,hil 

1555 CALL &BB03:G0TD 60 

1560 REM — j-ueb er prue-fung 2 

1565 IF b(xn,nya>=158 THEN ENT 2,100,-2, 

4: SOUND 2, 190, 10,5, ,2s g=g+l : b (xn ,nyo> =16 

3= sc=sc+25: LOCATE #l,2,25sPEN #1,14:PRIN 

T #1, "Punkte: "s^c; 

1570 IF g=5 THEN sc=sc+ 100: LOCATE #1,7,2 

5: PEN #1,14: PRINT #l,"Punktes ";bc; 

1575 IF b(xn,nyo)=2 THEN SOUND 2,478,10, 

2:b(xn,nyo)=16^3ss=l:sc=sc-i-30:PEN #1,14:L 

OCATE #1,2,25:PRINT #1, "Punkte: ";sc;sLO 

CATE 18, 18: PEN 6: PRINT CHR* ( 159) : b ( 1B, 18 

)=159 

15B0 IF b(xn,nyo)=159 AND s~l THEN ENV 4 
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,50,2, 10: SOUND 3,65,80,2,4s p=p+l : b (xn ,ny 
o)=163:sc=sc+75sL0CATE #l,2,25sPEN #1,14 
:PRINT #1, "Punkte: ";sc; 

15B5 IF b£xn,nya)=160 THEN SOUND 1,1500, 
i0,5:zz=3sp=p+l:b<xn,nyo> = 163:sc=«5c+3ÖsP 
EN #1,14:L0CATE #1 ,2,25:PRINT #l,"Punkte 
i "jsc; 
1590 RETURN 

1595 REM gewittei 

16ÖÜ ENV 6,4,0,10,15,-1,75 

1605 ENT 6,1,0,10,10,10,1,10,-10,1,10,10 



,1,10,-10,1 

1A10 SOUND 7,300,350,15,6,6,15 

1615 INK O, 25s FÜR i=l TO 23:NEXT i : INK O 

,Ö 

1620 FOR i=l TO SOsNEXT i 

1625 INK 0,24sFGR i=l TO 50:NEXT i s INK O 

,0: RETURN 

1630 REM ende 

1635 MODE 1:INK O, 1 : INK 1 ,24: PEN 1 : PAPER 
0:BDRDER 1:END 



CHECK VliPRUEFSUMMEN; 



ZEILE NNR.: 


SUMMEN 


5- 


lO: 


2B353 


15- 


20; 


1427B 


25- 


30: 


17061 


35- 


40: 


32706 


45- 


50j 


23199 


55- 


60: 


47309 


65- 


70: 


54355 


75- 


80: 


25619 


B5- 


?0; 


62SBS 


95- 


100: 


B2665 


105- 


110: 


70415 


115- 


120: 


S1S07 


125- 


130: 


26782 


135- 


140: 


27659 


145- 


150: 


9B793 


155- 


160: 


4B323 


165- 


17Ö: 


35123 


175- 


ISO: 


42092 


1B5- 


190: 


34433 


195- 


200: 


102083 


205- 


210: 


11267S 


215- 


220: 


3U11 


225- 


230: 


34S09 


235- 


340: 


47217 


245- 


250: 


63081 



255- 


260= 


52102 


265- 


270: 


60B42 


275- 


2BO; 


71924 


2B5- 


290; 


4496 


295- 


300: 


2077S 


305- 


310: 


66506 


315- 


320: 


11063 


325- 


330: 


5B238 


335- 


340: 


72071 


345- 


350: 


53323 


355- 


360: 


20675 


365- 


370: 


94192 


375- 


3SOi 


60523 


385- 


390! 


63330 


395- 


400= 


1S907 


405- 


410: 


46636 


415- 


420: 


57706 


425- 


430! 


42206 


435- 


■440: 


5ÖB54 


445- 


450: 


65449 


455- 


460: 


52149 


465- 


470: 


56504 


475- 


4BO= 


33011 


485- 


490: 


23074 


495- 


5O0: 


27297 


505- 


SlO: 


56527 


515- 


520: 


5B27S 


525- 


530: 


697 37 


535- 


540; 


529 30 



545- 


550: 


47653 


B25- 


B3Ö: 


61001 


555- 


560: 


123337 


835- 


B4Ö: 


571 SS 


565- 


570i 


124S4 


B45- 


550: 


12770 


575- 


580 = 


74597 


955- 


B40: 


22044 


585- 


590: 


47737 


S65- 


B70' 


97169 


595- 


600: 


62124 


875- 


8B0: 


36125 


605- 


610: 


36814 


8B5- 


B90: 


34129 


615- 


620: 


59266 


895- 


90O: 


5B21 


625- 


630= 


3496 


905- 


910: 


5729B 


635- 


640: 


2B437 


915- 


920: 


69120 


645- 


450: 


78069 


925- 


93Q: 


S927S 


655- 


660: 


. 49330 


935- 


940: 


13307 


665- 


670; 


S2117 


945- 


9SO: 


47669 


675- 


680: 


60731 


955- 


960: 


63539 


685- 


690: 


68025 


965- 


970: 


57470 


695- 


700: 


36056 


975- 


930: 


12375 


705- 


710: 


21648 


985- 


990: 


41234 


715- 


720: 


4SS60 


995- 


lOOO: 


27203 


725- 


730: 


5209O 


1O05- 


1010: 


B5993 


735- 


740: 


4449S 


1015- 


1020: 


97169 


745- 


750: 


109742 


1025- 


1030: 


36125 


755- 


760: 


60461 


1035- 


1040: 


34129 


765- 


770: 


67605 


1045- 


105O: 


5821 


775- 


780 = 


36056 


1055- 


1060: 


57142 


785- 


790s 


66920 


1065- 


107O: 


640B0 


795- 


BOO: 


78069 


1075- 


10S0: 


B2976 


BOS- 


SlO: 


22B59 


10B5- 


1090: 


13307 


B15- 


B20: 


13320 


1095- 


HOO; 


47689 








1(05- 


1110: 


63434 



1115- 


1120: 


57314 


1395- 


14O0: 


8022 


1125- 


^1130: 


12B75 


1405- 


1410: 


32157 


1135- 


1140: 


37045 


1415- 


1420: 


34291 


1145- 


1150: 


23964 


1425- 


1430S 


366B2 


115S- 


1160: 


12109 


1435- 


1440: 


930O 


1165- 


1170: 


123Ö3 


1445- 


1450: 


B1217 


1175-^ 


1180: 


1S735 


1455- 


1460: 


33172 


11S5- 


1190: 


135S3 


1465- 


1470: 


24455 


1195- 


12O0: 


48423 


1475- 


14SO: 


45363 


IZ05- 


1210: 


66835 


1485- 


1490: 


46714 


1215- 


1220: 


60542 


1495- 


1500: 


577O0 


1225- 


1230: 


76489 


1505- 


1510: 


31076 


1235- 


1240: 


953BO 


151S- 


1520: 


21 OSO 


1245- 


1250: 


33893 


1525- 


1530: 


16522 


1255- 


1260: 


137B2 


1535- 


1540: 


63164 


12£5- 


1270: 


21B36 


1545- 


1550: 


37071 


1275- 


1280: 


35149 


1555- 


1540: 


2476B 


1285- 


1290: 


21339 


1565- 


1570: 


21709 


1295- 


13O0: 


46908 


1575- 


15SO: 


24551 


1305- 


1310: 


2SB95 


15B5- 


1590: 


37962 


1315- 


1320: 


63644 


1593- 


16QO; 


20766 


1325- 


133Ö: 


33284 


1605- 


1610: 


47491 


1335- 


1340: 


42204 


1615- 


1620: 


45362 


1345- 


1350: 


16983 


1625- 


1630: 


44039 


1355- 


1360: 


12828 


1635- 




21525 






223O0 








1375- 


1360: 


B2349 


SESAttTCHECKSUMME: 336 


13S5- 


1390: 


33057 









MIDNIGHT 



THEEND 




Nebenbei 
bemerkt . . . 

• • 

Wenn Sie Arger 
mit den Nachbarn 
vermeiden wollen, 
nutzen Sie doch 
einfach unseren 
ABO-SERVICE! 



„Karl-Heinrich! Es sind Meyers. Sie sagen, sie ~~""^' 
wollen endlich ihre COMPUTRONIC zurückhaben! 



Die Abo-Abruf karte finden 
Sie auf Seite 44! 
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Computronic 



< HORROR CAVES ^ 



Dieses Spiel bringt Ihnen den absoluten HORINHt/tt 



Die metallverarbeitende Industrie ist in Schwierigkeiten geraten: ihre 
Rohstoffvorräte gehen zur Neige, und neue Quellen müssen erschlos- 
sen werden. Doch die umgehend angestellten Bodenanalysen ergeben, 
daß in denPyrenäen ein reicher Vorrat an Eisenerz lagert, dernur dar- 
auf wartet, abgetragen zu werden. Sofort wird ein erfahrener Mann 
mit dieser Aufgabe betraut, doch ihre Durchführung gestaltet sich 
schwieriger, als man erwartet hatte ... 



Denn in den Höhlen der Pyrenäen lauern 
blutrünstige Geister auf den nichtsahnen- 
den Bergbauspezialisten, und mit dieser 
Ausgeburt des Bösen ist wahrlich nicht zu 
spaßen. Doch nicht nur diese Geister ma- 
chen das Einsammeln der so wichtigen Er- 
ze zu einer lebensgefährlichen Aufgabe; 
erschwerend kommt noch hinzu, daß bei 
derArbeit„Untertage"nureinknapperVor- 
rat an Sauerstoff zur Verfügung steht und 
daß man sich nur allzu leicht in den unter- 
irdischen Höhlen verirren kann! (bez.) 

Einige wichtige Tips: 

Sie können den Schwierigkeitsgrad des 
Spiels bestimmen (Profi, Amateur, Anfän- 
ger); dies wirkt sich sowohl auf die Ge- 
schwindigkeit der Geister als auch auf die 
Höhe Ihres Luftvorrates aus. Haben Sie 
das Minimum der zum Überleben wichti- 
gen Luftreserven erreicht, so werden Sie 
durch einen Piepston gewarnt. Sie können 
neue Luft tanken, wenn Sie bis dahin schon 
300 Punkte gesammelt und die Controll- 



Taste (CTRL) und „Q" gedrückt haben. 
Wenn der Geist Ihnen zu nahe „auf die Pel- 
le rückt", können Sie ihm durch schlagarti- 
ge Kursänderung ausweichen. 



m,o 


- Variablen für Spielbewe- 




gung 


x,y,g 


- Variablen für Geistersteue- 




rung und Geschwindigkeit 


ba 


- Variablen für Bildschirm- 




aufbau und Graphik 


a,b,c 


- Variablen für Graphik 


k,t,l,m 


- Variable zur Bestimmung 




von Bildschirmteilen 


a$,n$,w 


- Tastaturabfrage 


Lu,Pu 


- Variablen für Luft und 




Punkte 


ae,ab 


- Zufallsvariablen für Posi- 




tion des Erzes. 


Grafik und Musik werden mit Hilfe von 


„Read" 


und „Data" erstellt. 



Und noch eins: 

Wenn Sie einen der Gänge verlassen wol- 




len, müssen Sie den Spieler bis zum Ende 
des Ganges bewegen und kommen dann 
automatisch in den nächsten Gang. Ge- 
steuert wird das Spiel mittels Cursor-Ta- 
sten. 

PS: Wenn ihnen das Spiel zu leicht werden 
sollte, müssen Sie nur in den Zeilen 890 
und 900 „x=m and" herausnehmen. 
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REM ******************** ******#*■)(-# 










20 


REM *** HÜRROR-CAVES *** 


220 


INK 3,6: GOSUB 2720 


30 ! 


REM *** *** 


230 


SYMBOL 


AFTER 32 


40 1 


REM *** WRITTEN AND DESIGNED *** 


240 


SYMBOL 


207,239,231 ,219,53,204 , 13B, 23 


50 1 


REM *** *** 


5,236 




60 


REM *** BY„„„ *** 


250 


SYMBOL 


224,24,60, 102, 126, 199, 187,255 


70 1 


REM *** *** 


,126 




80 1 


FtEM *** UDO BREHMER 1985 #** 


260 


SYMBOL 


143,96,156,68,72,38,18,44,112 


90 1 


REM ****************************** 


270 


SYMBOL 


25 1 , 1 84 , 28 , 72 T 1 24 , 20 , 24 , 104 , 2 


100 


REM 


4 






HO 


REM +++++++++++++++++ ++++++++-+.+ 


2BO 


SYMBOL 


250,26,56,18,62,40,24,22,24 


120 


REM ++++ Spieleinleitung ++++ 


290 


SYMBOL 


248,186,124,40,56,16,40,40,10 


130 


REM ++++++++++++++++++-+*++++++++ 


B 






14Ö 


REM 


3ÖO 


SYMBOL 


249,56,56,108,186,16,40,40,10 


150 


INK 0,0:INK 1,24s INK 2,2: INK 3,6: BOR 


8 






DER 


IsMDDE 1 


310 


DIM LA<40,25) :M=25: 0=22:1 u=20Q 


160 


CLS:P£N 1:PRINT "Sind Sie :" 


320 


SPEED 


KEY 1,1 


170 


PRINTsPRINT "An* aenger ../ 1 /" 


330 


ON BREAK 6QSUB 340:B0T0 350 


180 


PRINTsPRINT "Amateur / 2 /" 


340 
350 


SPEED 
GOSUB 


KEY 20,2: CLS: PEN 1 : END 
2210 


190 


FRINTiPRINT "Pra-fi / 3 /" 


200 


PRINTsPEN 2tINPUT "Ihre Wahl";w 


360 


GOTO 102Q 


210 


IF w<l QR w>3 THEN 200 


370 


REM 
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#&. 




380 REM 

390 REM 

400 REM 

410 REM 

420 INK 1,24: INK 2,2: INK 3,6: INK 0,0:L0C 

ATE m,o:PRINT CHR* (249) 

430 GOSUB 2600 

440 LOCATE 1 ,24: PRINT"Punkte: " : pu 

450 IF LA(M,0)^Ö THEN 680 

0)=1 THEN M=2sG0TD H20 
D)=2 THEN 0=2: GOTO 1300 
0)=3 THEN 0=23: GOTD 1020 
Q)=4 THEN M=3B:GDTQ 1220 
D)=5 THEN M=3=G0TÖ 1300 
Ö)=6 THEN 0=2: GOTO I6B0 
D)=7 THEN 0=23: GOTO 1300 
0)=S THEN M=3B:GOTD 1600 
D)=9 THEN M=3:GQT0 1630 
Q)=10 THEN M=3:G0TG 17B0 
Q)=ll THEN M=3B:GGTQ 16SO 
0)=12 THEN 0=2: GOTO 2060 
D)=13 THEN M=2:G0T0 1SB0 
0)=14 THEN M=3S:GOTO 17BO 
0)=15 THEN 0=23: GOTO 1500 
0>=16 THEN 0=2: GOTO 1880 
Q)=17 THEN M=38:G0T0 1400 
0)=18 THEN M=2:G0T0 1500 
0>=19 THEN 0=23: GOTO 1120 
0)=20 THEN 0=2: GOTO 1400 
0)=2I THEN M=3B:G0T0 102O 
G)=22 THEN 0=23: GDTO 1780 
0)=23 THEN M=38:GDTD 1980 . 
O) =24 THEN M=3: GOTO 2060 



460 IF LA(M 
470 IF LA(M 
4BO IF LA(M 
490 IF LA(M 
500 IF LA(M 
510 IF LA(M 
520 IF LA(M 
IF LA(M 
IF LA(M 
550 IF LA(M 
56cj IF LA(M 
570 IF LA(M 
5B0 IF LA(M 
590 IF LA(M 
IF LA<M 
IF LA(M 
620 IF LA<M 
630 IF LA<M 
640 IF LA(M 
650 IF LA(M 
660 IF LA(M 
670 IF LA(M 
IF LA(M 
IF LA<M 



530 
540 



600 
610 



680 

690 

700 REM 

710 REM 

720 REM ++++ Spielerbewegung ++++ 

740 REM 

750 A*=INKEY* 

760 IF A*=CHR*<242) AND LA (M- 1,0) 050 TH 

EN M=M-1: LOCATE M,0:PRINT CHR* (251 > :LOCA 

TE M+l ,0:FRINT" " 

770 IF A*=CHR*(243) AND LA (M+l, 0)050 TH 

EN M=M+1: LOCATE M,OiFRINT CHR* (250) : LOCA 

TE M-1,0:FRINT" " 

780 IF A*=CHR*(24Ö) AND LA (M, 0-1)050 TH 

EN 0=0-1:LOCATE M,0:PRINT CHR* (248) : LOCA 

TE M,D+1 SPRINT" «■ 

790 IF A*=CHR*(241) AND LA(M, 0+1)050 TH 

EN 0=0+1 :LDCATE M,0:PRINT CHR* (249) : LDCA 

TE M,0-liPRINT" " 

BOO IF la(m,o)=40 THEN la (m,o) =0: GOSUB 2 

660 

BIO REM 

820 REM +++++++++++++++++++++++++++ 

S30 REM +++++ Geister ++■+++ 

B40 REM +++++++++ ++-H-+++-H- ++++++4.++. 

850 REM 

860 g=g+l:IF g=4-w THEN g=O=G0TO B70 ELS 

E GOTO 101O 

870 IF x>m AND la(x-l,y)=0 THEN x=x-l:LD 

GATE x,y:PRINT CHR* (224) : LOG ATE x+l,y:PR 

INT " " 

BSO IF x<m AND la(x+l,y)=0 THEN x=x+l:LG 

GATE x,y:PRINT CHR* (224) : LOCATE x-i,y:PR 

INT " " 



B90 IF y<o AND m=x AND la(x,y+l>=0 THEN 
y=y+l: LOCATE x,y=PRINT CHR* (224) : LOCATE 
,x,y-i SPRINT " " 

900 IF y>o AND m=x AND la(x,y-I>=0 THEN 
y=y-l.-LOCATE x,y:PRINT CHR* ( 224 ): LOCATE 
x,y+l SPRINT " " 

910 IF m=x AND o=y THEN SPEED KEY 20,2:S 
OUND l,500,5O,4,2,2,28:FOR t = l TG 3000:N 
EXT=RUN 
920 REM 

940 REM +++++ Luftabnahme +++++ 

950 REM +++++++++++++++++++++++++++ 

960 REM 

970 lu=lu-w: LOCATE 1 ,23: PRINT"Luf t : " ; lu 

980 IF lu<60 THEN SOUND 1 ,30O,4, 4: BORDER 
3 

990 IF INKEY(67>=128 AND pu>=300 THEN lu 

=200:pu=pu-3Q0:B0RDER OiGOSUB 2690 

1000 IF lu<l THEN FOR t = l TO 30OÖ:NEXT:R 

UN 

1010 GOTO 450 

1020 REM **********#*##♦**#*#***#*#*+* i 

1030 ERASE LA:DIM LA(40,25) 

1040 CLS:PEN 2 

1050 >i=21:y=ll 

1060 FOR BA=25 TO 10 STEP- 1 : LOCATE 20,BA 

:PRINT CHR*(207) : LA (20, BA) =50: NEXT 

1O70 FOR BA=25 TO 15 STEP- 1 : LOCATE 30, BA 

i PRINT CHR* (207) : LA (30 , BA) =50: NEXT 

1080 FOR BA=20 TO 40: LOCATE BA,1Ö:PRINT 
CHR* (207) s LA (BA, 10) =50: NEXT 

1090 FOR BA=30 TO 40:L0CATE BA,15:PRINT 
CHR*(207) : LA (BA, 15) =50: NEXT 

1100 FOR BA=11 TO 14: LA (40,BA) =1 : NEXT: FO 
R BA=20 TO 30:LA(BA,25)=2:NEXT 

1110 PEN lsGQTD 420 

1120 REM ***************#****##******.#2 
1130 ERASE LA:DIM LA(40,25) 

1140 CLSsPEN 2 

1150 x=29:y=ll 

1160 FOR BA=1 TO 30: LOCATE BA,10:PRINT C 

HR* (207) :LA(BA,10>=50:NEXT 

1170 FOR BA=1 TO 20: LOCATE BA,15:PRINT C 

HR* (207) :LA(BA,15)=50:NEXT 

11 SO FOR BA=1Ö TO 25: LOCATE 30.BA:PRINT 

CHR*(207) :LA(30,BA>=5OjNEXT 

1190 FOR BA=15 TO 25 : LOCATE 20,BA-PRINT 

CHR*(207) :LA(20,BA)=50:NEXT 

1200 FOR BA-11 TO 14: LA ( 1 ,BA) -21 : NEXT: FD 

R BA=21 TO 29:LA(BA,25)=2Q:NEXT 

1210 PEN 1:G0TQ 420 

1220 REM *****#****#*********#**#*****3 

1230 ERASE LAsDIM LA (40, 25) 

1240 CLS:PEN 3 

1250 ;;=5:y=14 

1260 FOR BA=4 TO 40: LOCATE BA,10:PRINT C 

HR* (2Ö7) j LOCATE BA,15:PRINT CHR* ( 2Ü7 ) : L A 

(BA, 10)=5O:LA(BA,15)=50:NEXT 

1270 FOR BA=10 TO 15:LDCATE 3,BA:PRINT C 

HR*(207> :LA(3,BA)=50:NEXT 

1280 FOR BA=11 TO {4: LA (40,BA)=5: NEXT 

1290 PEN l:GDTO 420 

1300 REM ****##*********************#*4 

1310 ERASE LA:DIM LA(40,25) 
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1320 CLS:PEN 3 

133Ö ji=25:y=20 

1340 FDR BA=1 TD 25: LOCATE 30, BA: PRINT C 

HR* (207) :LA(3Ö,BA)=50:NEXT 

1350 FOR BA=1 TD 1Ü:LDCATE 2Ü,BA; PRINT C 

HR*(207) :LA(20,BA>=50:NEXT 

136Q FDR BA=1 TD 20sL0CATE BA, 10: PRINT C 

HR* (207) :LDCATE BA, 15: FR INT CHR*(207):LA 

(BA, 10) =50: LA (BA, 15) =50: NEXT 

1370 FOR BA=15 TO 25s LOCATE 20, BA: PRINT 

CHR* (207) ;LA(20,BA)=50:NEXT 

13SÜ FOR BA=11 TD 14s LA ( 1 ,BA> =4: NEXT; FOR 

BA=21 TO 29:Lft<BA,i)=3iLA(BA,25)=6sNEXT 
1390 PEN 1: GOTO 420 

1400 REM *******************#***#*****5 
1410 ERASE LAsDIM LA<40,25) 
142Ö CLB;PEN 3 
1430 x=21:y=19 

1440 FOR BA=1 TD 20: LOCATE 20, BA: PRINT C 
HR* (207) : LA <20, BA) =50: NEXT 

1450 FDR BA=1 TD 15: LOCATE 30, BA: PRINT C 
HR* (207) :LA(30,BA)=50:NEXT 
1460 FOR BA=20 TO 40: LOCATE BA, 20 SPRINT 
CHR* (207) s LA (BA , 20) =50: NEXT 
1470 FOR BA=30 TD 40: LOCATE BA, 15: PRINT 
CHR* (207) :LA(BA,15)=50:NEXT 

1480 FOR BA=21 TO 29: LA (BA, 1 > =19: NEXT: FO 
R BA=16 TO 19:LA(39,BA)=1S:NEXT 
1490 PEN liGQTO 420 

1500 REM **#*#*****#***##*******#*****6 
1510 ERASE LAsDIM LA (40,25) 
1520 CL5:PEN 3 
1530 K=29:y=I6 

1540 FOR BA=1 TO 30: LOCATE BA, 15: PRINT C 
HR*(207) :LA(BA,15)=50:NEXT 

1550 FOR BA=1 TO 20: LOCATE BA,20:PRINT C 
HR* (207) : LA (BA, 20) =50: NEXT 

1560 FOR BA=20 TO 25: LOCATE 20,BA: PRINT 
CHR* (207) :LA(20,BA)=50sNEXT 
1570 FOR BA=15 TO 25:L0CATE 30,BA:PRINT 
CHR* (207) s LA (30, BA) =50; NEXT 
1580 FOR BA=16 TO 19: LA ( 1 ,BA) =17: NEXT:F0 
R BA=21 TO 29s.LA(BA,25>=16:NEXT 
1590 PEN 1:G0T0 420 

1600 REM ***#*********##*##*********** 7 
1610 ERASE LAaDIM LA(40,25) 
1620 CLS:PEN 2 
1630 x=il:y=16 

1640 FOR BA=IO TO 40: LOCATE BA,15:PRINT 
CHR* (207) : LOCATE BA,20sPRINT CHR* (207) :L 
A (BA , 15) =50= LA (BA ,20) =50: NEXT 
1650 FOR BA=16 TO 19:LDCATE 10,BA:PRINT 

CHR* (207) :LA(10,BA)=50:NEXT 
1660 FOR BA=16 TD 19: LA (40, BA) =9: NEXT 
1670 PEN 1:G0T0 420 

1680 REM *****************************8 
1690 ERASE LAiDIM LA (40,25) 
1700 CLS:PEN 2 
1710 x=20:y=19 

1720 FOR BA=1 TO 40: LOCATE BA,20:PRINT C 
HR* (207) :LA(BA,2Ö)=5Ö:NEXT 

1730 FOR BA=1 TO 20:L0CATE BA,15:PRINT C 
HR*£207) :LA(BA,15)=5G:NEXT 
1740 FOR BA=15 TD 1 STEP- 1 : LOCATE 20, BA: 
PRINT CHR* < 207 ): LOCATE 30,BA:PRINT CHR* ( 



207 ) : LA ( 30 , BA) =50: LA ( 20 , BA ) =50 : NEXT 
1750 FOR BA=30 TO 40: LQCATE BA, 15: PRINT 
CHR* (207): LA (BA, 15) =50: NEXT 
1760 FOR BA=21 TO 29: LA (BA, 1 ) =7: NEXT: FOR 

BA=16 TO 19sLA(l,BA)=B:LA(4G,BA)=10:NEX 
T 

1770 PEN lsGOTO 420 

17B0 REM ****#*»*#***#*****#****#**#**9 
1790 ERASE LA:DIM LA (40,25) 
ISOO CLSsPEN 2 
1S10 x=20:y=19 

1B20 FOR BA=1 TO 40: LOCATE BA, 15: PRINT C 
HR*(2O7):LA(BA,15)=50:NEXT 

1030 FOR BA=1 TO 20: LOCATE BA, 20: PRINT C 
HR* (207) :LA(BA,20)=5Q:NEXT 
1840 FOR BA=20 TO 25: LOCATE 20, BA: PRINT 
CHR* (207) s LA (20, BA) =50: LOCATE 30,BA:PRIN 
T CHR* (207) :LA(30,BA)=50: NEXT 
1850 FOR BA=30 TO 40: LOCATE BA, 20: PRINT 
CHR*(207> :LA(BA,20)=50:NEXT 
1860 FOR BA=16 TO 19s LA ( 1 ,BA) =1 1 :LA (40, B 
A) =13: NEXT: FDR BA=20 TO 30: LA (BA,25) =12: 
NEXT 

1870 PEN 1:G0T0 420 

1880 REM ***************■*********##** lO 
1890 ERASE LAsDIM LA (40,25) 
1900 CL9:PEN 2 
1910 x=29:y=19 

1920 FOR BA=1 TD 30: LOCATE BA, 20: PRINT C 
HR*(207) : LA (BA, 20) =50: NEXT 

1930 FDR BA=1 TO 20: LOCATE BA, 15: PRINT C 
HR*(207) : LA (BA, 15) =50: NEXT 

1940 FOR BA=1 TO 15s LOCATE 20,BA: PRINT C 
HR* (207) : LA (20, BA) =50: NEXT 

1950 FOR BA=2Ö TO 1 STEP- 1 : LOCATE 30,BA: 
PRINT CHR* (207) : LA (30, BA) =50: NEXT 
i960 FDR BA=16 TO 19: LA ( 1 ,faa) =14: NEXT: FO 
R BA=21 TO 29:LA(BA,1)=15:NEXT 
1970 PEN l:GOTO 420 

1930 REM ***********##**####*#*#**** 1 1 
1990 ERASE LA:DIM LA (40,25) 
2000 CLS:PEN 3 
2010 x=ll:y=I9 

2020 FOR BA=10 TO 40: LOCATE BA, 15= PRINT 
CHR* ( 207) : LOCATE BA, 20: PRINT CHR* (207) :L 
A(BA, 15)=5O:LA(BA,2O)=50sNEXT 
2030 FOR BA=16 TO 19: LOCATE 10, BA: PRINT 

CHR* (207> : LA ( 10 , BA) =50: NEXT 
2040 FOR BA=16 TO 19: LA (4Ö,BA> =24 s NEXT 
2050 PEN l:GOTO 420 

2060 REM *■***■*******#***#*#■*#****#*# 1 2 
2070 ERASE LAsDIM LA (40,25) 
2O80 CLS:PEN 3 
2090 x=29=y=19 

2100 FOR BA=1 TO 30: LOCATE BA, 20: PRINT C 
HR* (207) : LA (BA,20) =50: NEXT 

2110 FOR BA=1 TO 20: LOCATE BA, 15: PRINT C 
HR* (207) :LA(BA, 15) =50= NEXT 

2120 FOR BA=15 TO 1 STEP- 1 : LOCATE 20, BA: 
PRINT CHR* (207) : LA (20 ,BA> =50: NEXT 
2130 FOR BA=20 TO 1 STEP- 1 : LOCATE 30, BA: 
PRINT CHR* (207)': LA (30, BAi =50: NEXT 
2140 FOR BA=21 TO 29: LA (BA, 1 ) =22: NEXT: FD 
R BA=16 TO 19:LA(1,BA)=23:NEXT 
2150 PEN l:GOTO 420 
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2160 REM 
2170 REM 
2180 REM +++++ Graphik +++++ 

220O REM 
2210 CLS 

222Ü PLOT 20,3ÜO,O 
2230 FÜR ba=l TO 54 
2240 READ a,b,c 
2250 DRAWR a,b,c 

2260 SOUND 1,50, 1,7: SOUND 1,0,2,0 
2270 NEXT 

2280 DATA 0,-100,3,0, ISO, 3, O, -80, 3,50,0, 
3,0,-150,3,0,200,3 

2290 DATA 28,-50,0,-25,-40,3,25,-40,3,25 
,40,3,-25,40,3 

2300 DATA 28,0,0,0,-80,3,0,60,3,50,20,3, 
3 , O , , , -80 , 3 , O , 60 , 3 , 50 , 20 , 3 , 3 , O , O 
2310 DATA 3, O, 0,-25, 40,3,25,-40,3,25,40 
, 3 , -25 ,40,3,28,0,0,0, -80 , 3 , O , 60 , 3 , 50 , 20 , 
3,3,-40,0,20,2,3,20,-3,3,10,1,3 
2320 DATA 60,100,0,-50,-100,3,80,-120,3, 
-20 , 1 60 , O , -40 , -40 , 3 , 40 , -40 , 3 , , BO , 3 , O , -8 
0,3,10,0,3 

2330 DATA 3,B0 ,0 ,25, -BO, 3, 25,80,3,5,-20, 
0,40,0,3,-20,20,3,-20,-20,3,30,-60,3 
2340 DATA 53,80,0,-40,-26,3,40,-26,3,-40 
,-26,3 

2350 SPEED INK 20 , 20 
2360 INK 3,0,26= INK 0,0=BORDER 
2370 LOCATE 9,24: PRINT"Press any key to 
play" 
2380 REM 

2400 REM +++++ Musik +++++ 

2410 REM ++++++++++++++++++++++++++++ 

2420 REM 

24 30 RESTORE 2500 

2440 FOR mu=l TO 98 

2450 READ k,t,l 

2460 SOUND k , t , 1 . 1*1 ,7: SOUND 1,0,2,0 

2470 a*=INKEY*:IF a*<> ,,M THEN RETURN 

2480 NEXT 

2490 RESTORE 2500: GOTO 2440 

2500 DATA 1,239,25,1,239,25,1,239,25,1,2 

39,12.5,1,239,12.5,1,239,12-5,1,239,12.5 

, 1 ,239, 12.5, 1 ,239, 12.5,1 ,239,25 

2510 DATA 1,319,25,1,284,25,1,268,25,1,2 

53,12.5,2,358,12.5,1,253,12.5,2,358,12.5 

,1,284,12.5,2,358,12.5,1,319,12.5,2,358, 

12.5 

2520 DATA 1,253,12.5,2,358,12.5,1,253,12 

.5,2,358,12.5,1,284,12.5,2,358,12.5,1,31 

9,12.5,2,358,12.5 

2530 DATA 1,239,12.5,2,379,12.5,1,239,12 

.5,2,379,12.5,1,284,12.5,2,379,12.5,1,31 

9,12.5,2,379,12.5,1,239,12.5,2,379,12.5, 

1,239,12.5,2,379,12.5,1,284,12.5,2,379,1 

2.5,1,319,12.5,2,379,12.5 

2540 DATA 1,253,25,1,284,12.5,1,319/25,1 

,284,12.5,1,319,12.5,1,319,12.5,1,284,25 

,1,319,12.5,1,379,25,1,0,12,1,319,12.5 

2550 DATA 1,253,12.5,2,358,12.5,1,253,12 

.5,2,358,12.5,1,284,12.5,2,358,12.5,1,31 

9,12.5 



2560 DATA 2,358,12.5,1,253,12.5,2,358,12 

.5,1,253,12.5,2,358,12.5,1,284,12.5,2,35 

8,12.5,1,319,12.5,2,358,12.5 

2570 DATA 1,239,12.5,2,379,12.5,1,239,12 

.5,2,379,12.5,1,284,12.5,2,379,12.5,1,31 

9,12.5,2,379,12.5,1,239,12.5 

2580 DATA 2,379,12.5,1,239,12.5,2,379,12 

.5,1,284,12.5,2,379,12.5,1,319,12.5,2,37 

9,12.5 

2590 DATA 1,253,25,1,284,12.5,1,319,25,1 

,284,12.5,1,319,12.5,1,358,12.5,1,379,25 

,1,426,12.5,1,478,25,1,0,80 

2600 REM *********************** 

2610 FOR e=l TO 10 

2620 ae=INT(RND(l>*39)+l 

2630 J ab=INT<RND(i)*24)+l 

2640 IF latae,ab)050 THEN LOCATE ae,ab; 

PRINT CHR*(143) :la(a E ,ab)=40 ELSE 2620 

2650 NEXT: RETURN 

2660 REM **************** 

2670 SOUND 1,200,10,4 

2680 pu=pu+100 

2690 LOCATE 1 ,24: PRINT "Punkte: "; pu 

2700 RETURN 

2710 REM 

2720 REM ***************************** 

2730 REM *** Spiel anweisung *** 

2740 REM ***************************** 

2750 REM 

2760 SPEED KEY 20,2: CLS 

2770 LOCATE 1,2:INPUT "Name";h* 

2780 PRINT "Einen Moment . ..":FOR t=l 

TO 2000: NEXT 
2790 PEN 3: PRINT n*:PEN 1 
2SOO PRINT "In unserem Archiv haben wir 
gesehen, dass Sie der -faehigste Mann sind 
,um diesen Au-ftrag ausiu-fuehren ! }" 
2810 PEN 2: PRINT: PRINT" Ihre Au-f gäbe: " : PE 
N 3 

2820 PRINT" " : PEN 1 

2830 PRINT: PRINT: PRINT" Uns gehen langsa 
m, aber sicher die Vor-raete an Metallen 

aus! Deshalb sammeln Sie in den Haehle 
n d^r- Pyrenäen Erze, um uns die Metall 

Industrie aufrecht zu erhalten." 
2B40 PEN 3: PRINT: PRINT" Verlieren Sie nie 
ht die Orientierung ! '. ! " ; PEN 1 
2B50 PRINT: PRINT"Viel Glueck !!!" 
2860 LOCATE 9,24:PRINT "Press any key to 

go on" 
2B70 a*=INKEY*:IF a*<>"" THEN RETURN ELS 
E 2870 



CHECK V1;PRUEFSUMMEN: 



2EILENNR. = 


SUMMEN 


10- 


20: 


4 1504 


30- 


4ü: 


324B7 


50- 


60: 


14405 


70- 


SO; 


262 B2 


90- 


10O: 


22444 


110- 


120: 


5O076 


130- 


140 = 


1S970 


150- 


160 = 


34404 


170- 


1BÖ: 


392 B2 


19Ö- 


2O0i 


39002 


210- 


220: 


270S0 


23Q- 


240: 


37655 


250- 


26Q: 


S1074 


270- 


280: 


33226 


290- 


3O0: 


39770 


310- 


320 = 


60376 


33Ö- 


340: 


11913 



350- 


360= 


221ö 


370- 


3B0: 


21593 


39Ü- 


4O0: 


S2B71 


410- 


420: 


1773 


430- 


440: 


21810 


450- 


460: 


67191 


470- 


4B0: 


BS911 


490- 


500: 


B743S 


510- 


520: 


S5274 


530- 


540: 


B7301 


550- 


560: 


9628S 


570- 


5SO: 


84637 


590,- 


400: 


100605 


610- 


620: 


90241 


630- 


640: 


933 07 


650- 


660! 


96135 


670- 


(bBO: 


99863 


690- 


700: 


41447 


710- 


720: 


45517 


730- 


740: 


16519 



750- 


760: 


374 1B 


770- 


780 = 


6S330 


790- 


S0O= 


4S522 


810- 


S20 = 


JS970 


S30- 


S40: 


382S1 


B5D- 


860: 


24933 


870- 


8BOS 


61020 


890- 


900: 


10B252 


910- 


9ZO= 


51045 


930- 


940: 


43956 


950- 


960= 


16970 


970- 


9S0s 


75372 


990- 


1000 s 


44907 


1010- 


1020: 


23502 


1030- 


1040: 


12763 


1050- 


1060: 


64364 


107O- 


lOBO: 


91226 


1090- 


11O0: 


63490 


lllO- 


1120: 


25070 


1130- 


1140: 


12763 



7* 
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Sc****** 



1 1 50- 
lt 70- 
1190- 
1210- 
1230- 
12SO- 
1270- 
1290- 
1310- 
1330- 
1350- 
1370- 
1390- 
141Ö- 
1*30- 


1160= 
11S0: 
1200: 
1220= 
1240; 
1260= 
12B0; 
1300: 
1320: 
1340: 
1360: 
13B0: 
1400; 
1420: 
1440 s 


41366 
69510 
65728 
25102 
127i>S 
1S&97 
72211 
25134 
1276S 
43591 
43203 
72B77 
251 £6 
12768 
42S5B 


J4S0- 


1460: 


70115 


1730- 


1740= 


74074 


201O- 


202Q= 


25B5S 


2290- 
2310- 


2300: 
2320 = 


91081 
B7953 


2590- 

2610- 


2600: 
2620: 


59459 
26360 


1470- 
1490- 
1510- 


14S0: 
ISOOs 
1520 s 


65220 
25198 
12768 


1750- 
1770- 
1790- 


1.760 = 
17SÖJ 
IBOÖ: 


75Ö61 
25294 
12763 


2030- 
2050- 
207G- 


2O40: 
2040; 
20B0: 


BÖ21B 
2392 B 
1276B 


2330- 
2350- 
2370- 


2340: 
23&OI 
2380 = 


B129B 

7642 

40719 


2630- 
2650- 
2670- 


2640: 
2660: 
2680: 


34 726 
8034 
14665 


1530- 


1540 t 


41311 


1510- 


1S20: 


41933 


2O90- 


2100: 


42226 


2390- 


2400 = 


35739 


2690- 


2700: 


22738 


1550- 


15iö: 


A9340 


LS30- 


1B40: 


56491 


21 lO- 


2120: 


B4050 


2410- 


2420 = 


20260 


2710- 


2720 = 


21100 


1570- 
1590- 


1590 = 
16O0: 


&&OB1 
25230 


iaso- 

1Ö70- 


1860i 
1SB0: 


H9BB2 
25223 


2130- 
2150- 


2140: 
2160: 


78631 
2764 


2430- 
2450- 


24 40: 
2460 = 


1O024 
50201 


2730- 
2750- 


2740: 
2760 = 


SO 128 

2964 


1610- 
1630- 


1620 c 
1640: 


12763 
25813 


1890- 
1910- 


190O; 
I920: 


12763 
42226 


2170- 
2190- 


2180: 
2200: 


37307 
18970 


2470- 
■?490- 


24BÜ: 
2500 = 


22351 
4118 


2770- 
2790- 


2780: 
2SO0: 


73990' 
42B96 


16SO- 
167Ö- 
1690- 
1710- 


l*AO = 
l&SO: 
I7O0: 
1720: 


79159 
25262 

12763 
42303 


1930- 
1950- 
1970- 
1990- 


1940i 
1960 = 
19B0 = 
2000 = 


6S744 
SO 179 
23B97 
1276B 


22iO- 
2230- 
2250- 
2270- 


2220 s 
2240: 
2260: 
2230: 


1709 
14395 
16354 
60637 


2510- 
2530- 
2550- 
2570- 


2520: 
25 40: 
2560: 

25B0; 


69304 
BB6S3 
70449 
71898 


2B10- 
2830- 

2350- 
2870- 


ZS20: 
2840: 
2860: 


35313 
52322 
56207 

2836B 


3SSßMTCHECKSUMM6s 4lO 






































ür die Freunde der Selbstverteidigung 




hai-Boxing 



Tl-99-Fans auf ge paßt! Dieses tolle S piel 

stellt hohe Anforderungen an Körperbeherrschun g, 

Konzentration und Reaktionsvermögen! 



Nach 



dem Programmstart werdet ihr aufgefordert, einen 



sowie den eigenen Namen einzugeben. Danach findet ihr euch als 
weißen Thai-Boxer gemeinsam mit dem schwarzen Gegner in der 
Kampfarena wieder. Ihr müßt nun versuchen, dem Gegener mög- 
lichst viele Schläge und Tritte beizubringen. Doch der Kontrahent 
wehrt sich, denn er beherrscht alle Tritte und Schläge genauso per- 
fekt wie ihr selbst. 



Achtung: Bei Schwierigkeitsgrad 1 benö- 
tigt ihr oder der Gegener 5 Schläge oder 



Tritte, um einen von beiden auf die Matte 
zu legen. Bei den weiteren Schwierigkeits- 



graden benötigt der Gegner nur 3 oder 4 
Treffer, um euch zu bezwingen. Jedesmal, 
wenn ihr den Gegner auf den Boden beför- 
dert, wird ein Punkt gutgeschrieben. Sieger 
ist derjenige, der zuerst 10 Punkte er- 
reicht. 

Thai-Boxing wird über die Tastatur ge- 
steuert. Die Tastenfunktionen können aus 
der Spielanleitung des Programmes ent- 
nommen werden. Zum Spiel muß die 
Alpha Lock -Taste gedrückt sein. 



Und nun ran an die Tasten! 



1Ü CALL CLEAR :: CALL SPRITE (#1 ,84, 16, 30 

, 50 , #2 ., 72 , 2, 30 , SO , #3 , 65 , 16 , 30 , 1 10 ,#4 , 73 , 

2,30,140) 

20 CALL 5PRITE<#5, 66, 16,50,50, #6,79,2,70 

, 70, #7, 8B, 16,90,90, #8, 73, 2, 110, HO) 

30 CALL SPRITE (#9, 78, 16, 130,130, #10, 71, 2 

,150,150) 

40 DISPLAY AT (1,1): "INTERFACE-SOFTWARE P 

RESENTS: " :: DISPLAY AT (24,3) : "CO. 1985 B 

Y: DIRK BLUDAU" 

50 DISPLAY AT(8,14)SIZE(15) : "PRESS ANY K 

EY !" 

60 CALL MAGNIFY<i):s FÜR 1 = 1 TG 10 :; SO 



SUB 70 :: NEXT I :: CALL MAGNIFY <2) : : FO 

R 1=1 TD 10 :: GOSUB 70 ss NEXT I ss GOT 

O 60 

70 CALL KEY(Ü,K,S) : : IF SOO THEN CALL C 

LEAR ss CALL DELSPRITE (ALL) s s GDTO 80 EL 

SE RETURN 

80 DISPLAY AT (3,3) s "SPIELANLEITUNG ? <J> 

<N>" s: FOR J=l TD 100 :; NEXT J 

90 CALL KEY (0,K,S) : : IF S=0 THEN 90 ELSE 

IF K=74 THEN 1200 ELSE 100 
lOO Q,R=0 :s CALL CLEAR ss DISPLAY AT(3, 
3) : "SCHWIERJGKEITSGRAD ?" :: DISPLAY AT ( 
10,3) :"1 = LEICHT (HQ-CHI-fllNH) " 



Dieses Spiet ist laufTähia auf dem Tt-99/4a Bxtended Basic 
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Instruments 



110 DISPLAY AT(12,3) S "2 = NDRMAL (CHANG- 
PUANG) " := DISPLAY AT(14,3)s"3 = SCHWER 
(CHAM-PI-IN) " s: ACCEPT AT (20,3) VALIDATE 
("123">BEEP:C 

120 IF C=l THEN CW=5 ELSE IF C=2 THEN CW 
=4 ELSE CW=3 
130 CALL CLEAR :: CC=C#1Ö :: IF C=l THEN 

CH=10 ELSE IF C=2 THEN CH-2B ELSE CH=46 
140 DISPLAY AT(3,3); "GIB DEINEN NAMEN EI 
N ! '• :: ACCEPT AT (10,3) VALIDATE (UALPHA) B 
EEP SIZE(I2) iX* 
150 IF C=l THEN Y*="HO-CHI-MINH" ELSE IF 

C=2 THEN Y*="CHANG-PUANG ,! ELSE Y*="CHAM 
-PI-IN" 

160 CALL CLEAR :: DISPLAY AT (4,B)S1ZE ( 12 
):X* i! DISPLAY AT (5, 8) SI ZE ( 12) : Y* 
170 CALL CHAR ( 33 , " FFFFFFFFFFFFFFFF " , 34 , " 
OOOOOOOOOOOOOOFF" ,35, " 8080808080908080" T 
36, "FFOOOOOOOOOÖOOOO" ,37, "OIOIOIGIOIOIOI 
Ol") 

ISO CALL CHAR(40,"003C5A7E663CiaiS n ) 
190 DATA 001CIA1C1B3C3F3C3F3C3C386CC6864 
300000000008000000000000000000000 , 00 1 C 1 A 
1 C 1 83C3F3C3F3C3C 1S181B1B1 C00000000008000 
OOOOOOÖOOOOOOOÖOÖO 

200 DATA OÖOOOOOOOOO1OOOOO0OO0OO0OOOOOO0 
000385838 1 83CFC3CFC3C3C 1 C36636 1 C2 , OOOOOO 
ÜQQ0010000000000ÖOÖOOOOOOOÖÖ3S58381S3CFC 
3CFC3C3C 1 8 1 8 1 8 1 838 

210 DATA 00000000000103050301 Ol 010306040 
2ÖÖEÖDOEGCÜEOFFEOE0EOEQC06Ü3O30 1 S , 000 1 O 1 
Ö 1 Ö 1 O3G7ÜBO7030303O60C0CG6OOC0 A0C080CBF0 
COC 1 FFFEOOOOOOOOOO 

220 DATA 0101010103070B07037FFCBOOOOOOOO 
OCOAOCOSOCOFCCOC 1FF7EQ00000000000 , 0007 OB 
070307FF0707070703Ö6ÖC0C180ÖÜÖ000Ü0Ö80C0 
A0C0808G80C0602040 

230 DATA OOO3Ö50301130F03B3FF7F0000000GO 
O00B0B080BOCOEOD0EOE0E06Ö3O 181 830 , 030503 
O 1 033F0383FF7E00000000000080808080CÖEODO 
E0C0FE3F01 OOÖOOOOO 

240 DATA 000000000101010103Ö70B07037FFE8 
000GÖ0O0ÖCÖAOC8B8C8FOCÖCÖF8FC0C06 , OOOOOO 
00O000OO00OOOÖOOO023577F7F00OO000O000000 
OOOOOOOOOOCOE 1 FFFF 

250 DATA OOÖÖOÖ0003051311130F0303iF3F306 
O0O000O0OB0808O8OCOEOD0E0COFE7FO 1 , OOOOOO 
0000ÖOÖOOO0ÖGOO0OO03B7FFFFOGÖOO0000OQOÜ0 
O0OOOOOO0OC4EAFEFE 

260 RESTORE 190 s : FOR I=8B TD 140 STEP 
4 ss READ A$ :j CALL CHAR(I,A*)is NEXT I 

z: CALL CGLOR( 1,7,1, 2,7,1) ss RANDOMIZE 
270 FÜR 1=9 TO 16 :: Q=Q+1 :s CALL HCHAR 
<I,l,33,Q)s: NEXT I 

280 GN33 :s FÜR 1=9 TQ 16 S! Q=Q-1 u R= 
R+l ss CALL HCHAR ( I ,Q,33,R) s s NEXT I 
290 CALL HCHAR(10,4,33,26) : : 0=0 t: FOR 
1=8 TO 15 s: 0=0+1 s: CALL HCHAR ( I ,Q,40) 
; s NEXT I s s 0=33 i s FÜR 1=8 TD 15 :: Q= 
Q-l 

300 CALL HCHAR (I,Q, 40) : s NEXT I :: CALL 
HCHAR (9,4,40,26) : s CALL HCHAR (8,5,40,24) 
ss CALL HCHAR(7,6,40,22) 

310 CALL VCHAR(1,B,37,6): s CALL VCHAR ( 1 , 
25,35,6)== CALL HCHAR (1,9, 36,16) ss CALL 



HCHAR(6,9,34,16) 

320 DISPLAY AT (2,9) SIZE ( 1.1 ): "PUNKTESTAND 

" =! DISPLAY AT(4,20)SIZE<2)sPU ss DISPL 

AY AT(5,20)SIZE(2):SU 

330 GOSUB 1300 

340 CALL MAGNIFY<3)=; CALL SPRITE (#1 , SB, 

16, 160, 30, #2, 96, 2, 160,226) :s FÜR 1=1 TO 

100 ss NEXT I :: RI=2 s: GI=2 

350 CALL S0UND(2Ö0,-3,0):s CALL SOUND (20 

0,-2,0) 

360 GOSUB 690 s s CALL KEY (0,K,S) : s IF S= 

O THEN 360 

370 IF K=83 THEN X=-4 ss Y=0 :s RI=1 :: 

GOTO 440 

380 IF K=68 THEN X=4 s ! Y=0 : : RI=2 s : G 

OTO 450 

390 IF K=44 THEN 460 

400 IF K=46 THEN 510 

410 IF K=76 THEN 560 

420 IF K=32 THEN 1030 

430 GOTO 360 

440 CALL PATTERN(#l,I0O)s s CALL MOTION(# 

1,-Y*7,X*7) :s CALL PATTERN (#1 ,96) : s CALL 
MOTION(#i,0,0):: GOTO 360 

450 CALL PATTERN (#1,92) ss CALL MOTION (#1 

,-Y*7,X*7)ss CALL PATTERN (#1,88) s : CALL 

MOTION (#1, O, O) : : GOTO 360 

460 CALL SOUNDdOO, HO, 0,115,0, 120, O) : s 

IF RI=1 THEN CALL PATTERN (#1 , 1 16) : : GOTO 
470 ELSE CALL PATTERN (#1 , 104) s s GOTO 49 

O * 

470 FDR 1=1 TQ 50 ss NEXT I s: CALL COIN 

C(ALL,CQ)i: IF CO=-i THEN 480 ELSE CALL 

PATTERN (#1, 96) s : GOTO 360 

480 CALL PATTERN (#1,96) :: IF GD>0 THEN G 

OTO 360 ELSE GOTO 1060 

490 FOR 1=1 TD 50 ss NEXT I :: CALL COIN 

C(ALL,CO)ss IF C0=-1 THEN 50O ELSE CALL 

PATTERN (#1,88):: GOTO 360 

500 CALL PATTERN(#l,88)ss IF GD>0 THEN G 

OTO 360 ELSE GOTO 1060 

51 O CALL SOUND (100, 110, 0,1 15, 0,120,0) ss 

IF RI=1 THEN CALL PATTERN (#1,1 20) : i GOTO 
520 ELSE CALL PATTERN (#1 , 108) : : GOTO 54 
O 

520 FOR 1=1 TO 50 ss NEXT I :: CALL COIN 
C(ALL,CG)ss IF CO=-i THEN 530 ELSE CALL 
PATTERN (#1 , 96) s : GOTO 360 

530 CALL PATTERN (#1,96) s s IF GD>0 THEN G 
OTO 360 ELSE GOTO 1060 

540 FOR 1=1 TO SO s : NEXT I s : CALL COIN 
C(ALL,CD):: IF CO=-l THEN 550 ELSE CALL 
PATTERN(#1,SB) s s GOTO 360 

550 CALL PATTERN<#1,88) :: IF GD>0 THEN G 
DTO 360 ELSE GOTO 1060 

560 SP=1 s t IF RI = 1 THEN 610 ELSE 57ö 
570 CALL PATTERN (#1,112) : : CALL MOTION (# 
1,-20,20) s: FOR 1=1 TO 10 ss CALL COINC( 
ALL, CO) ss IF C0=-1 THEN GOTO 650 ELSE 58 
O 

SSO NEXT I 

590 CALL MOTION (#1,20, 20) s s FOR 1=1 TO 1 
ss CALL COINC(ALL,CO) i : IF CO=-l THEN 
650 ELSE 600 
600 NEXT I ss CALL PATTERN (#1 ,88) s : CALL 



Oomputrortio 
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MOTION(#l,Ö,Ö) : -. CALL POSITION (#1 ,E,F) s 
: CALL LOCATE (#1, 160, F) : : GOTD 360 
610 CALL PATTERN (#1,1 24) : s CALL MOTION<# 
1,-20,-20) ss FOR 1=1 TO lO :: CALL CDINC 
(ALL, CO) ss IF CO=-l THEN GOTO 67Ö ELSE 6 
20 

620 NEXT I 

630 CALL MOTION (#1,20, -20) i : FOR 1=1 TO 
10 :i CALL COINC<ALL,CO) s : IF CO — 1 THEN 

670 ELSE 640 
640 NEXT I :: CALL PATTERN (#1 ,96) s s CALL 

MQTI0N(#1,0,0) : : CALL POSITION (#1 ,E ,F) : 
: CALL LOCATE (#1 ,160,F) : : GOTO 360 
650 CALL SGUNDdÜO, 110, 0,115,0, 120, O) : : 
CALL M0TI0N(#1,G,0)=: CALL POSITION (#1 ,E 
,F):s CALL LOCATE (#1 , 160, F) : : CALL PATTE 
RN(#1 ,88) 

66Ö IF GD>0 THEN GOTO 360 ELSE 1060 
670 CALL SOUNDdOO, 110,0, 115,0,120,0) : : 
CALL MOTION(#1,0,0) :: CALL POSITION (#1 ,E 
,F):: CALL LOCATE (#1 , 16Ü,F> : : CALL PATTE 
RN(#1,96) 

6B0 IF GD>0 THEN GDTO 360 ELSE 1060 
690 IF GD=i THEN 1000 ELSE IF 6D=2 THEN 
1020 ELSE CALL PDSITI0N<#1 ,E,F) : : CALL P 
OSITION(#2,EE,FF) s : IF F<FF THEN 700 ELS 
E 710 

7ÖO IF FF~F>CC THEN 730 ELSE IF 5P=1 THE 
N SP=0 :: CALL PATTERN (#2, SS) : : GI = 1 s: 
GOTO 720 ELSE GOTD 720 

710 IF F-FF>CC THEN 740 ELSE IF SP=1 THE 
N SP=0 :: CALL PATTERN (#2,96) : : Gl =2 :: 
GOTO 720 ELSE GOTO 720 

720 0=2+C :: ZU=INT (RND*0) +1 es IF ZU=1 
THEN 750 ELSE IF ZU=2 THEN BOO ELSE IF Z 
U=3 THEN 9SO ELSE B5Ü 

730 GI = 1 :: CALL PATTERN (#2, lOO) i : CALL 
MQTI0N(#2,ö,-CH) : : CALL PATTERN (#2, 96) : s 

CALL M0TION(#2,O,0)s : RETURN 
740 Gl =2 :: CALL PATTERN (#2,92) r : CALL M 
0TI0N(#2,0,CH) : i CALL PATTERN (#2,88) s s C 
ALL MOTI0N(#2,0,0) s s RETURN 
750 CALL 50UND( 100,150,0, 155,0,-2,0) : i I 
F GI=1 THEN CALL PATTERN (#2, 1 16) : s GOTO 
760 ELSE CALL PATTERN (#2, 104) : i GOTO 7BO 
760 FÜR 1=1 TO 50 :: NEXT I 33 CALL COIN 
C(ALL,CQ>:: IF CO=-l THEN 770 ELSE CALL 
PATTERN ( #2 , 96 ) s j RETURN 

770 CALL PATTERN (#2, 96) z s IF GE=1 THEN R 
ETURN ELSE GOTO 1090 

780 FOR 1=1 TO 50 : : NEXT I : : CALL COIN 
C(ALL,CO):; IF CO=-l THEN 790 ELSE CALL 
PATTERN (#2,88) : s RETURN 

790 CALL PATTERN (#2, SB) ss IF GE=1 THEN R 
ETURN ELSE GDTO 1O90 

800 CALL SOUNDCIOO, ISO, O, 155,0,-2,0) s : I 
F GI=1 THEN CALL PATTERN ( #2, 120) s : GOTO 
810 ELSE CALL PATTERN (#2, 108) : : GDTD 830 
810 FOR 1=1 TO 50 := NEXT I :: CALL COIN 
C<ALL,CO);= IF CO=-I THEN 820 ELSE CALL 
PATTERN (#2, 96) : : RETURN 

S20 CALL PATTERN(#2,96)=: IF GE=1 THEN R 
ETURN ELSE GOTO 1090 

830 FOR 1=1 TO 50 ss NEXT I s: CALL COIN 
C(ALL,CO)sj IF CO=-l THEN B4Ö ELSE CALL 



PATTERN ( #2 , 88 ) = s RETURN 

840 CALL PATTERN (#2, BS) : : IF SE=1 THEN R 
ETURN ELSE GOTO 1090 
850 IF GI = 1 THEN 900 ELSE 860 
860 CALL PATTERN (#2, 112) : : CALL MOTION(# 
2,-20,20)i: FOR 1=1 TO lO :: CALL CDINC ( 
ALL,CD)s: IF CD=-1 THEN GOTD 940 ELSE 87 
O 

870 NEXT I 

BSO CALL MOTION (#2, 20, 20) : : FÜR 1=1 TO 1 
O '.'. CALL CDINC (ALL, CO) : : IF CO=-I THEN 
940 ELSE 890 

S90 NEXT I ss CALL PATTERN (#2,98) : : CALL 
MOTION(#2,0,0)!: CALL POSITION (#2, E,F) : 
: CALL LOCATE (#2,1 60, F) : : RETURN 
900 CALL PATTERN (#2, 124) : : CALL MDTION<# 
2,-20,-20)1 : FOR 1=1 TO lO :: CALL COINC 
(ALL,CO):s IF C0=-1 THEN GOTO 960 ELSE 9 
lO 

910 NEXT I 

920 CALL M0TI0N(#2,20,-20) s s FOR 1=1 TO 
10 e: CALL COINC (ALL, CO) : ; IF CO=-l THEN 








q- 



^ o 



<> <^ 



„Cheng-Wang, ich freue mich ja wirklich, wenn Deine 
Brüder uns besuchen. Aber können sie nicht wie jeder an- 
dere an die ,Tür klopfen?" 



960 ELSE 930 
930 NEXT I :: CALL PATTERN (#2, 96) : : CALL 

M0TI0N(#2,0,0) : : CALL POSITION (#2, E,F) : 
: CALL LOCATE (#2, 160, F) : : RETURN 
940 CALL SOUND ( 100,150,0, 155, 0, -2,0) : : C 
ALL M0TI0N(#2,0,0):: CALL POSITION (#2, E, 
F)i; CALL LOCATE (#2 , 160, F) s : CALL PATTER 
N(#2,8B) 

950 IF GE=1 THEN RETURN ELSE 1090 
960 CALL SOUND (100,150,0, 155,0,-2,0) : : C 
ALL MOTION (#2, 0,0):i CALL POSITION (#2, E, 
F)ü CALL L0CATE(#2,160,F): : CALL PATTER 
N(#2,96) 

97Ö IF GE=1 THEN RETURN ELSE 1090 
9BO IF Gl =2 THEN 990 ELSE 1010 
990 GD=1 ; i CALL PATTERN (#2, 128) : : CALL 
KEY(Ö,K,S>s: GOTO 370: 

1000 GD=0 :s CALL PATTERN (#2,88) : : CALL 
KEV(0,K,S):s GOTO 370 
1010 GD==2 :: CALL PATTERN (#2, 136) s : CALL 

KEYtO,K,S)s: GOTO 370 
1020 GD=0 :: CALL PATTERN (#2 ,96) : i CALL 
KEY(0,K,3):: GOTO 370 
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1030 GE=i ss IF RI=2 THEN 1040 ELSE 1050 
1040 CALL PATTERN (#1,128) ss GQSUB 690 s: 

GE=0 :: CALL PATTERN (# 1 ,S8) s : CALL KEY< 
0,K,S) : : BDTO 370 
1050 CALL PATTERN< #1,136):: GQSUB 690 :: 

GE=0 :: CALL PATTERN <#1 ,96) : s CALL KEY < 
0,K,S> : : GOTO 370 
1060 P=P+1 :: IF P=5 THEN 1070 ELSE GOTO 

360 
107O P,W=0 :: IF GI=1 THEN CALL PATTERN ( 
#2, 132) ELSE CALL PATTERN < #2, 140) 
10S0 CALL SOUNDt 1300,-5,8):: FOR 1=1 TO 
lOO :: NEXT I ss PU=PLM-1 :: DISPLAY AT (4 
,2Ö)SIZE(3):PU :: IF PU=10 THEN GOTO 112 
ELSE GOTO 340 

1090 W=W+1 :: IF W=CW THEN 1100 ELSE CAL 
L KEY(0,K,S)s: GOTO 370 

llOO W,P=0 :: IF RI=2 THEN CALL PATTERN < 
#1,132) ELSE CALL PATTERN (#1 , 140) 
1110 CALL S0UND<1300,-5,S>:= FOR 1*1 TD 
100 s= NEXT I s: GU=GÜ+1 :: DISPLAY AT<5 
,20)SIZE<3)sGU :: IF GU=10 THEN GOTO 114 
O ELSE 340 
1120 PU,GU=0 s; FOR 1=1 TO 20 s: DISPLAY 

AT<4,S)SIZE<12)s ,,H :: FOR VER=1 TO 20 : 
s NEXT VER ;: DISPLAY AT <4,S) SIZE < 12) : X* 

s_s NEXT I 
1130 GQSUB 1330 :: GOTO 1160 
1140 GU,PU=0 :: FOR 1=1 TO 20 i i DISPLAY 

AT<5,8)SIZE(12) :"" :: FOR VER=1 TD 20 s 
: NEXT VER :: DISPLAY AT (5,8) SIZE t 12) s Y* 

:= NEXT I 
1150 FOR 1=600 TO 300 STEP -30 :: CALL S 
QUND (550, 1,2, 1-20,6,1+10, 5) s : NEXT I 
1160 CALL DELSPRITE(ALL) 

1170 DISPLAY AT(12,3)SIZE(20) : "NEUES SPI 
EL ? <JXN>" :: CALL KEY(0,K,S):s IF S=0 


■ ij 

m 


THEN 1170 ELSE IF K=74 THEN lOO ELSE IF 

K=78 THEN 1190 
1180 GOTO 1170 
1190 CALL CLEAR ss END 

1200 CALL CLEAR :: PRINT "THAI - BOXING" 
1210 PRINT "ALS THAI -BOXER TRETEN SIE 
GEGEN EINEN VON DREI WAEHL- BAREN GEGNER 
N AN. WENN SIE" 

1220 PRINT "IHREM GEGNER MEHRERE SCHLAE- 
GE ODER TRITTE VERABREICHT HABEN, DANN H 
ABEN SIE IHN AUF" 

1230 PRINT "DIE MATTE GELEGT UND BEKOMM- 
EN EINEN PUNKT. DAS GILT NA-TUERLICH AUC 
H UMGEKEHRT. WER" 

1240 PRINT "ZUERST 10 PUNKTE HAT, IST DER 
SIEGER DES KAMPFES. STEUERUNG DE 
R SPIELFIGUR! " 

1250 PRINT "S - NACH LINKS GEHEN 
D - NACH RECHTS GEHEN , - BOXEN" 
1260 PRINT ". - TRETEN 

L - SPRINGEN LEERTASTE - 
ABWEHRSTELLUNG " 

1270 PRINT "DRUECKEN SIE EINE TASTE !!!" 
1280 CALL KEY<0,K,S>:: IF S=0 THEN 1280 
ELSE 100 

1290 DATA 165, ISO, 232, 232, 287, 346, 408, 40 
8 , 474 , 287 , 232 , 287 , 346 , 544 , 474 
13O0 RESTORE 1290 ss FOR 1=1 TO 15 :: RE 
AD Z 

1310 CALL S0UND(+2O0,Z,O):: NEXT I : : RE 
TURN 

1320 DATA 233,246,261,246,277,261,277,29 
3,311,293,277,293,311,261,246,277,261,29 
3,311,329,349 

1330 RESTORE 1320 :: FOR 1=1 TO 21 :: RE 
AD 7 :: CALL SOUND < lOO, Z ,0,349,5) i = NEXT 
I : : RETURN 



Letzte Meldun g! Letzte Meldun g! 

ENTERPRISE hat die Preise für seine Super-Rechner gesenkt! 

Der 64K-Computer kostet jetzt ganze 498 Mark, während der 12 8K-Enterprise schon für 798 Mark 
zu haben ist. Die Peripherie (ebenfalls im Preis drastisch gesenkt; Monitor, grün - 298,- /Monitor, 
farbig (Hi-Res) - 798,- /Drucker - 898,- / 3,5 Zoll Laufwerk mit Controller - 998,- / zweites Lauf- 
werk ohne Controller - 698,- (720 KB-formatiert). Klasse Preise für einen Riesen-Computer! 



Korrektur zum Programm „Brückenbau" für den VC-20 COMPUTRONIC 1/2/86 



49 IFPEEK<Z+26}=2S0RPEEK{Z+26>*2?0RPEEK<Z+27>=26THENPÜKEZ > 32 = PÜKEZ+1 ,32 = W=9 : RETU 
RH 
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Tips & TWcks ft Tips & Tricks # Tips & Tricks ^ Tips&Tiicks 



Ein Kurz-Tip für alle CPC-464-Besitzer - Joystickabfrage einmal anders! 




Wie sicher allen Schneider-Usern bekannt 
ist befindet sich im Basic der Befehl JOY 
(nr.). Es existiert aber noch eine andere 
Möglichkeit den Joystick abzufragen, die 
in erster Linie für Maschinensprache-Pro- 
grammierer interessant sein dürfte. Man 
braucht tatsächlich nur die Speiche rstelie 
& B4F4 durch PEEK (in MC mit LD A 
(&&B4F%) abzufragen, um den Wert des 
Joysticks zu erhalten. Die gelieferte Zahl 
ist mit derjenigen identisch, die durch den 
JOY (nr)-Befehl geliefert wird. 

(Ottfried Schmidt) 
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Auflösung und Gewinner unseres Wettbewerbes aus der Computronic-Ausgabe 1/2/86 



Vorweg ein Dank an unsere Leser für ihr Engagement sprich rege Beteiligung. Bei der abgebildeten Persönlichkeit erhielten wir die 
kuriosesten Lösungsvorschläge. Doch handelte es sich weder um Roy Black, Roland Kaiser, Wolfgang von Goethe oder Louis den 
Sonnenkönig, sondern schlicht und einfach um William Shakespeare. Unter den zahlreichen Einsendungen haben wir 15 Gewinner 
ausgelost, die eine Kassette oder Diskette freier Wahl aus unseren Softwareangebot bald ihr Eigen nennen können: 



Thomas Achterberg, Bad Camberg 

(Atari - Super-Miner/Diamonds) 
R. Dahnelt, Dreieich 

(Commodore - Ufo/Skateboard-Sam) 
Jörg Friedrich, Walldorf 

(Commodore - Tron/Mercurios) 
Hans Theo Funke, Bonn 2 

(Atari - Groove) 
Thomas Görlich, Darmstadt 12 

(TI-99-Moon Race/Frogger/Slicks) 



Jens Hellmann, Gravenwiesbach 

(Atari - Donkey Kong/Kerzenheinz) 
Peter Henke, Schwäbisch-Hall 

(Schneider - Srtider's Mace) 
Michael Lotz, Essen 

(VC-20 - Garten/Schloß Gruselstein) 
Klaus Reiger, Saulgau 1 

(ZX-Spectrum - Karl der Käfer) 
Hans Joachim Reimann, Berlin 20 

(Apple - Pro Data/Music Editor) 



Gabriele Rößler, Dortmund 1 

(Atari - Splitt) 
Markus Rübsamen, Kriftel 

(Apple - Pro Data/Music Editor 
Monika Krehl-Schröder, Bonn 

(TI-99-Möon Race/Frogger/Slicks) 
Manfred Statmann, Jade 1 

(Apple - Wilder Westen/Karambolage) 
Maskengenerator) 



Zwei Themen -eine Ausstellung 



mkm 




in 



-traric 



Die umfassende Marktübersicht für Hobby- 
Eiektroniker und Computer-Anwender, 
klar gegliedert: 



& Ausstellung für Funk- und Hobby-Elektronik 



WMM 



D 



@Mff' 

Dortmund 
23.-27. 




In Halle 5 das Angebot für CB- und 
Amateurfunker, Videospielen DX-er, Radio- 
Tonband-, Video- und TV-Amateure, für 
Elektro-Akustik-Bastler und Elektroniker. 
Mit dem Actions-Center und Laborversuchen, 
Experimenten, Demonstrationen und vielen 
Tips, 

In Halle 4 das Super-Angebot für Computer- 
Anwender in Hobby, Beruf und Ausbildung. 
Dazu die „Computer-Straße", als Aktionsbe- 
m -■ ,*#*i-»^ reich - der Wettbewerb „Jugend programmiert" 
Apnl 198© und der Stand des WDR-Computer^lubs. 



2. Ausstellung 
für Computer, 
Software 
und Zubehör 




Aüsstellung^eländeVIfcsifalenh^^ täglich^ oone^oubr 
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Atari-^Commödore-Joystidks am TT 99/4A 



Da die Handlichkeit der Texas Joysticks für 
Spiele häufig ungenügend ist, hat sich der 
Autor mit der Pinbelegung auseinanderge- 
setzt! 

Der Quick Shot II 

Diejenigen, die den Joystick „Quick Shot 
If" benutzen wollen, benötigen eine weite- 
re Lötung im Joystick, um den „Auto firc" 
funktionsfähig zu bekommen. 
Dazu werden die vier Kreuzschlitzschrau- 
ben an der Unterseite des Joystick heraus- 
gedreht und das Unterteil abgeklappt (Vor- 
sicht, keine Kabel abreißen). 
Nun muß eine Verbindung vom leichtge- 
drehten Haltestift des Schalters zu dem Pin 
mit dem roten Kabel an der Unterseite des 
Schalters gelötet werden. 
Ohne diese Lötung funktioniert der Ak- 
tionsknopf bei Stellung des Auto fire auf 
„on" nicht. 



Pin - Belegung bei Tl 99/4 A für Joysticks 

Die Pinnummern wurden vom eingesteckten Stecker abgeschrieben. 





Computereingang 


Wert 






Joyst. Atari/Commodore 


Pin 


Bedeutung 


ein /aus 


Pin 


Bedeutung 


2 


Ausgang Joyst. 2 






1 


— Höhenwert Ausgang 


3 


+ Höhenwert Eing. 


+ 4/ 





2 


+ Höhenweit Ausgang 


4 


Keywert Eing. 


+ 18/- 


-1 


3 


— Seitenwert Ausgang 


5 


— Seitenwert Eing. 


- 4/ 





4 


— Seitenwert Ausgang 


7 


Ausgang Joyst. 1 






6 


Keywert Ausgang 


8 


— Höhenwert Eing. 


- 4/ 





8 


Computer Eingang 


9 


+ Seitenwert Eing. 


+ 4/ 










Anschließend wird das Unterteil wieder 
angekiappt und die vier Schrauben fest an- 
gedreht. 

Für das Anschließen von zwei Joysticks be- 
nötigt man ein siebenadriges Flachband- 
kabel, zwei neunpolige Joystickstecker 



und eine neunpolige Joystickbuchse. 
Das Kabel nicht zu kurz kaufen, lieber 10 
cm zu lang als 1 cm zu kurz. 30 cm sollten 
aber reichen. Das Kabel kann auch, falls 
länger als 1 Meter ais Verlängerung dienen. 
(Jürgen Böhning) 



Tips und Tricks für den VC-20 



.A. ON ERROR GOTO 



Folgende Einzeiler simuliert den Befehl 
unter Programmkontrolle: 
A$="90"+stR(nnnnn)+cH(13):L=LEN 
(A$):P0198,L:fOA=lTOL:P0630+A,ASC 
(mI(A$,A)):nE 

nnnnn ist die Zeilennummer der Errorbe- 
handlungsroutine. Die etwas unorthodoxe 
Schreibweise der Befehle soll die Kurzfor- 
men darstellen; mit den Kurzformen um- 
faßt die Zeile insgesamt 77 Zeichen, es 
bleibt also noch Platz für eine fünfstellige 
Programmzeilennummer. 



ß. UNNEW. 



10 FOR A=525 TO 577:READ d:POKE 

A,D:NEXT 
20POKE43,167:POKE44,2:POKE45,220: 

POKE46,2:CLR:S AVE "UNNEW", 1,1 
30 DATA 160, 3,200,177, 43,208,251,200 

200,152 
40 DATA 160, 0,145. 43,165, 44,200,145, 

43,133 
50 DATA 60,160, 0,132, 59,162, 0,200, 

208, 2 
60 DATA 230, 60,177, 59,208,245,232, 

224, 3,208 
70 DATA 242,200,208, 2,230, 60,132, 

45,164, 60 
80 DATA 132, 46, % 



Der Einsatz erfolgt mit SYS 525:CLR 
Das Programm ist an einem von dem 
Überschreiben halbwegs geschützten Platz 
im Stapelspeicher untergebracht und so- 
mit stets - auch nach einem Reset - verfüg- 
bar. 



■C. Verlangsamter PRINT 



Folgende Zeile ermöglicht die Bestim- 
mung der Druckgeschwindigkeit auf dem 
Bildschirm. Als Übergabeparameter ist ein 
vorher definierter String, hier A$, erforder- 
lich. Die Geschwindigkeit wird durch die 
B-Schleife bestimmt: 
FOR A = 1 TO LEN(A$):PRINT 

MID$(A$,A1);: 
FOR B = 1 TO 22: NEXT B,A 



D. Wieder: Tastaturverrie- 
gelung 



Daß man die Tastatur mit POKE 649,0 ver- 
riegeln kann, ist längst bekannt: dieselbe 
Wirkung erzielt man auch mit: 
POKE 37155,255 



E. INSTRING 



Folgende Zeile simuliert die INSTRING- 
Funktion: als Übergabeparameter müssen 
zwei String vorher definiert werden: 



A$ ist der Suchstring * 
B$ ist der zu durchsuchende String 
Die Zeile läßt sich als einzeiliges Unterpro- 
gramm abrufen, wenn die entsprechenden 
Befehle (s. Schreibweise!) in Kurzform 
eingegeben werden: 
A=LEN(A$):B=LEN(B$):N=0:fOI= 
ltoB-A+l:IFAS()mi(B$mI,A)THENnEI: 
N=I:I=B-A+l:nEI 

In dieser Form bleibt noch Platz für eine 
fünfstellige Programmzeilennummer so- 
wie reT [RETURN-Kuerzel] 



F. Zentrierter Bildschirm- 
ausdruck 



Als Übergabeparameter ist ein String für 
jede Bildschirmzeile erforderlich, z. B. hier 
A$: 
PRINT TAB« 22 - LEN(A$) ) / 2)A$ 



G. PRINTE Unterpro- 
gramm mit einem Para- 
meter 



Die inzwischen wohl weitbekannte Me- 
thode PRINTE [PRINT AT] zu simulieren: 
POKE781,X:POKE782,Y:POKE783,0: 
SYS65520:PRINT"string" 
läßt sich zu einem Unterprogramm um- 
wandeln, das nur gedruckt werden soll. 
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1 P=255 : GO SUB 1 000 :PRINT"string" 
1000 POKE781,p/22;POKE782,P-22* 
PEEK781 :POKE783,0: 
SYS6S520:RETURN 
Wer nicht auf Anhieb den Wert für P aus- 
rechnen kann, hat die Möglichkeit dieses 
dem Computer zu überlassen, und zwar 
mit der Zeile: 

P = (Y*22)+X 



H. Selbstmodifizierendes 
Programm 



Wenn man die Speicherzellen kennt, in de- 
nen die tokenisierten BASIC Befehle ste- 
hen, kann man durch hineinPOKEn von 
anderen Tokenwerten den Programmab- 
iauf ändern, z.B.: 

REM 200 
Die Zeilen 1 bis 198 stehen für Programm- 
phase 1 zur Verfügung 
199 EQ=4+PEEK(43)+256*PEEK(44): 
POKE EQ,137:END 

Ab Zeile 200 lauft dann Programmphase 2. 
Durch Zeile 199 ist der Tokenwert für GO- 
TO jetzt wirksam. Zeile sieht beim Li- 
sting dann so aus: 

GOTO 200 



Dieses einfache Beispiel soll andere User 
anregen, mit den dadurch gebotenen Mög- 
lichkeiten zu experimentieren. 



L Tastaturbieper 



Für diejenigen, die beim Eintippen eine 

akustische Bestätigung bevorzugen: 

10 FOR A = 678 TO 701:READ D:POKE 

A,D:NEXT 
20 DATA 169, 15,141, 14,144,120,169, 

78,141, 20 
30 DATA 3,169, 3,141,21, 3,88, 

96,165,197 
40 DATA 201,128,240, 7,101,197,105, 

128,141, 12 
50 DATA 133, 76,191,234 
Mit SYS 678 darf gebiept werden. 



J. Blinkende Bildschirm- 
zeile 



Gelegentlich möchte man einen Ausdruck 
am Bildschirm von der Umgebung abhe- 
ben: eine Möglichkeit besteht darin, den 
PRENT String an - und ausblinken zu las- 
sen. Dies kann folgendermaßen gesche- 
hen: 



10 PO$="crsrhome+22*crsrdown" 
20 ME$="das,was blinken soll" 
30 Y= [bildschirmzeiIe]:X= [Spalte] 
40 NR= fanzahl der biinkphasen]: 
GOSUB1000 

1000 BL=0 

1020 FOR I- 1 TO NR 

1030 PRINT LEFT$(PO$,Y+l);TAB(X); 
CHR$(18+ABS(128*BL));ME$ 

1040 TT=TI+J1 

1050 BL=BL=0 

1060 IF TI < TT THEN1070 

1070 NEXT 

1080 RETURN 

TI in Zeile 1040 und 1060 ist die Systemva- 
riable für die Systemuhr. 



K. GOTO berechnet 



Mit folgenden Einzeiler kann man zu einer 
vorher berechneten Zeile springen; Vor- 
aussetzung dafür ist, daß die Variable LN 
den Wert der Zeile enthält, bevor man zu 
dieser Zeile springt-P0785,188:P0786,200: 
POLN ,PE(LN) :LN=USR(0) 



Der Kurs, der „ankommt"! 



BASIC für Anfänger A 




Basic-Kurs - 



Stringverarbeitung 

In den letzten beiden Teilen haben wir sehr 
viele neue Funktionen kennengelernt. Al- 
le diese Funktionen haben gemeinsam, 
daß sie nur Zahlen verarbeiten können. 
Nun ist allgemein bekannt, daß Computer 
auf der Tastatur auch Buchstaben besitzen , 
Wir wollen uns nun mit den Funktionen 
befassen, die auch Buchstaben und andere 
Sonderzeichen verarbeiten können, man 
spricht in diesem Falle von Funktionen der 
Stringverarb eitung. 



Beispiel: 



10 INPUT "ZAHL EINGEBEN";A 
20 PRINT "DIE ZAHL LAUTET :";A 



Was ist ein String? 

Im ersten Teil unseres Kursus haben wir 
schon aufgezeigt, welche Zeichen der 
Computer darstellen und verarbeiten 
kann. Ein String ist eine Aneinanderrei- 
hung einer bestimmten Anzahl von belie- 
bigen Zeichen. Ein Beispiel war unser klei- 
nes Mini-Programm im Kurs-Teil 2. Dort 
verwendeten wir einen String in einer 
PRINT- sowie in einer INPUT-Zeile . 




STRING ist das englische Wort für Kette 
und bedeutet in diesem Fall eine Art Zei- 
chenkette. 

Zum besseren Verständnis könnte man das 
Wort STRING durch das Wort Text, und 



das Wort Stringverarbeitung durch das 
Wort Textverärbeitung ersetzen. 



Lesen Sie weiter auf der nächsten S. 



Dieser Kurs läßt Sie zum perfekten Basic-Programmierer werden! 



Computronic 



81 



c^ 



Der Kurs, der „ankommt"! 



BASIC für Anfänger \j& 



Von „Textverarbeitung" kann jedoch in 
dem obigen Beispiel noch keine Rede sein. 
Die Texte werden lediglich genauso, wie 
sie in der Programmanweisung vom Pro- 
grammierer formuliert wurden, auch wie- 
der auf dem Bildschirm ausgegeben (na- 
türlich auch vorhandene Rechtschreibfeh- 
ler). 

Nun hat ein Computer natürlich noch et- 
was mehr zu bieten als INPUT und PRINT, 
als erstes wären hier die Stringvariablen zu 
nenen. Was man unter einer Variable ver- 
steht haben wir schon einmal angespro- 
chen, jedoch kennen wir noch keine String 
- bzw. Textvariablen. Eine solche Variable 
unterscheidet sich von der numerischen 
Variable dadurch, daß dieser keine Zahl 
sondern ein ganzer String zugeordnet wird. 
Um dem Computer mitzuteilen wann es 
sich um eine numerische und wann es sich 
um eine Stringvariable handelt, muß der 
Variablenname entsprechend gekenn- 
zeichnet werden. Es ist üblich die Va- 
riablennamen, hinter denen sich Texte ver- 
bergen, mit einem angehängten $ (Dollar- 
Zeichen von den Namen für numerische 
Variablen zu unterscheiden. Folgenden 
Text variablen wären denkbar: 



A$,B$,C$,T1$ 



Die meisten Computer erlauben auch län- 
gere Variablennamen wie: 



PUNKTES,OTTI$,NAMES 



Denken Sie bei längeren Variablennamen 
daran, daß die einzelnen Computer eine 
unterschiedliche Anzahl von Zeichen in- 
terpretieren. Dadurch ist es möglich, daß 
die Variablennamen PUNKT$ und 
PUDEL$ als gleich interpretiert werden. 
Wie bei den numerischen Variablen wer- 
den die Stringvariablen durch eine Zuwei- 
sung definiert. Im Gegensatz zu den nume- 
rischen Variablen kann hier der LET-Be- 
fehl entfallen. 

Einige Beispiele: 



10 A$= "OTTI GEHT NACH HAUS" 

20B1$="NAME:" 

30 NAME$="FRANK" 

40 PRINT A$ 

50 PRINT BIS 

60 PRINT NAME$ 



Wir starten unser Programm: 



RUN <RETURN> 

OTTI GEHT NACH HAUS 

NAME: 
FRANK 



Wie in dem Beispiel zu erkennen ist, muß 
bei der Zuweisung einer Stringvariable der 
eigentliche Text in Anführungszeichen ge- 
setzt werden. Der Begriff Text kann recht 
locker gefaßt werden. Zu Recht spricht 
man nicht von „Buchstaben", sondern von 
„Zeichen". Dies soll verdeutlichen, daß 
man in einem String auch Sonderzeichen 
sowie Ziffern unterbringen darf: 



10 A$="12345" 

20 B$-"S100 + $300" 

30 C$=" " 



Wie die Zeilen 20 und 30 unseres Beispie- 
les zeigen, können auch Leerzeichen in ei- 
nem String festgehalten werden. Viele 
Computer besitzen auch Grafikzeichen 
wie Figuren, Herzen oder Linien, auch sol- 
che Zeichen können in einem String ver- 
wendet werden. Es gibt jedoch einige Zei- 
chen, die nicht verwendet werden können: 



10 T$="ER SAGTE "HALLO" UND 
GING" 



Die meisten Computer würden bei dieser 
Zeile annehmen, daß die Zeichenkette bei 
dem Wort „ER" beginnt und vor dem Wort 
„HALLO" endet. Dadurch können je nach 
Computertyp unterschiedliche Reaktio- 
nen hervorgerufen werden, entweder mel- 
det sich der Computer mit einer Fehler- 
meldung oder er interpretiert die Zeile feh- 
lerhaft und fährt im Programm weiter. Man 
sollte sich also immer erst im Handbuch 
seines Computers darüber informieren, 
wie dieser es gerne haben möchte. Im 
Zweifelsfalie sollte man durch eine kleine 
Testzeile (beispielsweise wie oben) fest- 
stellen wie der Computer auf das Anfüh- 
rungszeichen reagiert. 



Wie lang darf ein String 
sein? 



Wie wir in unseren Beispielzeilen schon 
gesehen haben, können in Stringvariablen 
Texte unterschiedlicher Länge zugewiesen 
werden. Die Programmiersprache Basic 
bietet dem User tatsächlich diese Möglich- 
keit. Je nach Computertyp und Basicver- 
sion ist eine maximale Stringlänge vorge- 
geben. Bevor Sie längere Strings verwen- 
den, sollten Sie die Länge im Handbuch 
nochmals nachlesen. 

Hier eine kleine Aufzählung einiger Com- 
puter: 



Computertyp 


Stringlänge 


C64 


255 


VC20 


255 


C16 


255 


CPC 464 


255 


SPECTRUM 


unbegrenzt 


ZX81 


unbegrenzt 


MSX 


100 (definierbar) 



Die Stringlänge läßt sich leicht durch eine 
Basic-Zeile feststellen: 



A$="":FOR 1=1 TO 2S5:A$=A$+ 
"A":NEXT I 



Gibt Ihr Computer nach dem Start dieser 
Zeile keine Fehlermeldung aus, so kann 
Ihr Computer mindestens 255 Zeichen in 
einem String ablegen. Durch Erhöhen 
oder Erniedrigen der Zahl 255 können Sie 
schnell die maximale Stringlänge ermit- 
teln. 

Wird die maximale Stringlänge überschrit- 
ten so melden sich die meisten Computer 
mit der Meldung "7STRING TOO LONG 
ERROR" 

Einige Computer ignorieren auch einfach 
die überschüssigen Zeichen, ohne dies 
durch eine Fehlermeldung anzuzeigen. 
Dies stellt eine gefährliche Programmfalle 
dar und hat schon manchen zur Verzwei- 
flung gebracht. 



Handhabung von Strings 



Ist einer Variable einmal ein String zu- 
geordnet worden, so kann diese jederzeit 
auch wieder neu definiert werden: 



10 A$="SCHMIDT" 
20 PRINT A$ 
30 A$="MEIER" 
40 PRINT A$ 

40 A$="" 
60 PRINT A$ 



Wir starten unser Programm: 



RUN <RETURN> 

SCHMIDT 
MEIER 



In diesem Beispiel wird die Variable A$ 
drei mal definiert, wobei sie in Zeile 50 ge- 
löscht wird. 

Es gibt noch eine andere Methode, einer 
Textvariablen einen Wert zuzuweisen, und 
zwar mittels unserer INPUT-Anweisung. 
Folgendes Beispiel demonstriert dies: 
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10 REM *** STRING-ZUWEISUNG *** 
20 1NPUT A$ 
30 PRINT A$ 
40 GOTO 20 



Ein anderes Beispiel: 



10 REM ** STRING-ZUWEISUNG** 

20 A$="NAME 

30 B$="STRASSE" 

40 C$="ORT" 

50 INPUT A$,A1$ 

60 INPUT BS,B1S 



70 INPUT C$,C1$ 
80 PRJNT A$"="A1S 
90 PRINT B$"="B1„ 
100 PRINT C$„=,C1$ 



Testen Sie selbst die Funktion dieser Pro- 
gramme und versuchen Sie ein eigenes 
kleines „STRING-Programm" zu erarbei- 
ten. 

Im nächsten Teil gehen wir auf die ersten 
Stringfunktionen ein und schreiben ein 
kleines Programm. 

Autor: Frank Brall 
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Das Handbuch für die 
zukunftsweisende Pro- 
grammiersprache 



LOGO 

Anne Moller 



Logo, eine höhere Pro- 
grammiersprache, wurde von 
Professor Seymour Papert in 
den Sechziger Jahren als Pro- 
grammiersprache für Kinder 
erfunden. Nun, da diese Spra- 
che auch in Deutschland auf 
dem Vormarsch ist, erschien 
bei Heyne zur rechten Zeit 
Anne Mollers Buch mit dem 
naheliegenden Titel „LOGO". 

Die Autorin vermittelt in ihrem Werk dem 
Leser einen umfassenden Einblick in Ar- 
beitsweise und Möglichkeiten der Sprache 
Logo. Diese einfache und dennoch vielfäl- 
tige Sprache hat es sich zur Aufgabe ge- 
stellt, Computer-Logiksichtbar zu machen. 
Mittels eines Lichtpunktes (der - bei eini- 
gen Computer-Systemen stilisierten - so- 
genannten „Schildkröte") können auf dem 
Monitor durch einfache Wortbefehle grafi- 
sche Gebilde gezeichnet werden. Darüber- 
hinaus sollen Kinder mit dieser Sprache 
ein besseres Verständnis für Mathematik 
und Geometrie bekommen. Neben der 
Programmierung von beweglichen Bildern 
werden in „LOGO" das gesamte Logo-Vo- 

Computronic 
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HEYNE COMPUTER BÜCHER I 



Anne Möller 




Das Handbuch für 
die zukunftsweisende ' 
Programmiersprache 



kabular und seine Dialekte vorgestellt. 
Auch die Themengebiete „Logo im Unter- 
richt" und „Logo in der Informatik" werden 
ausführlich erörtert. 

Da die Programmiersprache Logo bereits 
in vielen Schulen angewandt wird, ist 
„LOGO" von Anne Moller sicher ein nütz- 
licher Ratgeber für fast jeden Computer- 
Anwender. Und noch ein Hinweis: Die 
Sprache Logo wird inzwischen von den 
meisten Heimcomputer-Herstellern ange- 
boten; dazu gehören unter anderem IBM, 
Commodore, Atari, Tandy, Sinclair, Apple 
und viele andere. 

„LOGO" ist in „Heyne Computer-Buch" 
(Wilhelm Heyne Verlag, München) erschie- 
nen. ISBN3-453-47063-X, Preis 14,80 DM. 
(bez.) 



Literaturquellen: 

Grundkurs in Basic, Ulrich Stroebel, 

Sybex-Verlag 

Basic Brevier, Siegmar Wittig. 

Heinz Heise Verlag 

Commodore Handbuch 

Spectrum Handbuch 

Commodore H6/16/plus4, Ekkehard Kaier, 

Vieweg Verlag 



BASIC-KURS-TEIL 6 folgt 
in der nächsten Computronic 



Lernen mit dem 
Familien-Computer 

Sabine Quinten-Eirich 



„Lernen mit dem Familien-Com- 
puter" richtet sich an Eltern und 
Erzieher auf der einen und an 
Kinder im A Iter von fünf bis zwölf 
Jahren auf der anderen Seite 
(welche bei der Beschäftigung mit 
dem Buch jedoch auf die Unter- 
stützung durch Erwachsene an- 
gewiesen sein werden). 

Die Autorin, Sabine Quinten-Eirich, stu- 
dierte Sozialpädagogik in München und 
nutzt und testet seit drei Jahren (als Mutter 
zweier Kinder sicher in sehr kompetenter 
Weise) Computer-Lehr- und -Lernpro- 
gramme. Neben einer umfangreichen 
Übersicht über das Angebot an Lehr- und 
Lernprogrammen gibt sie dem Leser die 
Möglichkeit, sich über Zeichen-, Musik- 
und Sprachlernprogramme für Kinder zu 
informieren. 

Ihr Hauptaugenmerk legt Sabine Quinten- 
Eirich hierbei auf die Frage, ob überhaupt, 
wann und unter welchen Voraussetzungen 
Kinder an den Computer herangeführt 
werden sollten. Diese Problemstellung 
schlängelt sich gewissermaßen als „Roter 
Faden" durch'das gesamte Werk. 

„Lernen mit dem Familien-Computer" ist 
erschienen in der Reihe „Heyne Computer- 
Bücher", Wilhelm Heyne Verlag, München. 
ISBN 3-453-47053-2. Preis 12,80 DM. 
(bez.) 
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Die Redaktion hat den 



Sound-Champion des Monats gekürt! 



Die Komposition „Flötenspiel" ist bestimmt nicht so schwungvoll und rhytmisch wie Ke- 
maPs Song, weist dafür aber andere entscheidende Vorzüge auf. 
Diese dreistimmige Melodie wirkt sehr getragen und ist eindeutig von klassischen und ba- 
rocken Elementen beeinflußt. Sascha Tayfeh ist es ohne Zweifel gelungen auf seinem C- 
64 einen täuschend realistischen Flötenspiel-Sound zu erzeugen. Für dieses Werk hat er 
sich die 250 Mark redlich verdient. 

Das Programm arbeitet mit 3 Stimmen. Die erste Stimme stellt das Flötenspiel dar. Die 
zweiten und dritten Töne sind wechselnd. (Siegfried Görk) 



Dies ist der 

würdi ge 
Nachfolger! 

Unserem Aufruf aus der letzten Ausgabe 
(Januar /Februar) ist sehr bald eine positive 
Reaktion gefolgt. Wir haben mit Sascha 
Tayfeh und seiner barocken-klassischen 
Flötenkomposition einen würdigen Nach- 
folger für Kemal Ezcan, den Sound- 
Champion der letzten Ausgabe, gefunden. 
Saschas Komposition wurde übrigens auf 
einem C-64 geschrieben. -Und nun an alle 
anderen potentiellen Computer-Komponi- 
sten! Laßt Eurer musikalischen Phantasie 
freien Lauf und deckt unsere Redaktion 
mit zahlreichen neuen Meisterwerken ein. 
Auf unseren „Musikus" des Monats warten 
wieder „satte" 250 Deutsche Mark. 




Dieses Mal konnte sich Sa- 
scha Tayfeh (C-64) mit sei- 
nem „Flötenspiel" durch- 
setzen. 





Owlfr Teilnahmebedingungen. 



♦ Einsendung eines Datenträgers 

♦ Beifügung von 1,40 DM in Brief- 
marken 

♦ Kurze Beschreibung, Name des 
Titels 

♦ Listing darf höchstens eine 
Heftseite lang sein! 

♦ Kleines Autoren-Foto 
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Der Soundtrack des Monats: 


FLÖTENSPIEL (C-64) von Sascha 1 


ayfeh 


10 PR INT" BITTE ZSPACE1 WARTEN. ( RUN/STOP -CSP 




580 FORT=l T040: NEXT: NEXT: PQKES+22 , RND ( 1 ) 




ACE! RESTDRE^EIMDE ) " : S=54272: FÜRL=5T0S+24: 




#64+ 1 90 : POKEB+ 1 O , RND ( 1 ) * 1 4+ 1 : G0T05O0 


<15B> 


PÖKEL, 0: NEXT 


<151> 


600 DAT A34334, 36376, 38539,40830 


<163> 


20 DrMH(2,2ÖO) ,L(2,200) ,C(2, 200) i DIMFQ ( 1 




610 DATA4325e,45830, 48556,51443 


<177> 


1) 


<19> 


620 DATA54502, 57743, 61 176,64814 


<225> 


40 V<0)=17:VC1)=65: V £23=33 


<74> 


lOOO DATA594,594,594,59£,596 


<15> 


50 POKES+ 10,3s PGKES+22 , 240 : PDKES+23 , 244 : 




1010 DATA1618,587,592,587,585,331,336 


<154> 


FORI =ÜT01 1 : READFQ ( I ) : NEXT 


<208> 


1 020 DATA 1 097 , 583 , 5B5 , 585 , 5S5 , 587 , 5B7 


<157> 


100 FGRK=OT02s 1=0 


<177> 


1030 DATA1 609,585 ,331, 337, 594 ,594, 593 


<B4> 


120 READWM 


<130> 


1O40 DATA1 618, 594, 596, 594, 592, 587 


<61> 


130 I FNM=0THEN250 


<232> 


1050 DATA1616,587,585,331 ,336,B41 ,327 


<23> 


1 40 WA=V C K ) : I FNM<QTHENNM=-NM : WA= 1 


<20> 


1O60 DATA1607 


<130> 


ISO DRX=NM/ 128: OCy.= (NMAND1 12) /1Ä 


<177> 


1999 DATAO 


<185> 


160 NT=NM AND 1 5 : FR=FQ < NT ) : I FK=QTHENOC X=OC 




2OO0 DATA583,585,583,583,327,329 


<222> 


%+l 


<30> 


2010 DATA16il,583,5e5,57S,57S,57B 


<56> 


1BO IFOC7.=7THEN20O 


<175> 


2020 DAT AI 96, 198,583,326,578 


<125> 


1 90 FOR J=6TOaCZBTEP- 1 : FR-FR/2 : NEXT 


<154> 


2O30 DAT A326 , 327 , 329 , 327 , 329 , 326 , 578 , 583 


<93> 


200 HF'/.=FR/25fe:LFy.=FRAND2SS 


<196> 


2040 DAT A 1 606 , 582 , 322 , 324 , 582 , 587 


<192> 


210 IFDR*/.= 1THENH <K, I ) =HF%: L (K, I ) =LFX: C (K 




2050 DATA329,327, 1606, 583 


<1B9> 


,I)=WA: 1=1+1 :GOT0120 


< 1 1 > 


2060 DATA327,329,587,331 ,329 


<252> 


220 FORJ=lTQDRX-l:HtK,l)=HF%;L CK, I)=L.FY.i 




2070 DAT A329, 328,1609,578,834 


<197> 


C(K, I)=WA: 1=1+1: NEXT 


<174> 


2080 DATA3 24, 322, 327, 585, 1602 


<171> 


230 H(K,I)=HF%:L<K,I)=LFZ:C<K,I)=WA-i 


<213> 


2999 DATAO 


<165> 


240 1=1+1 :GOT0120 


<90> 


3000 DAT A567 ,566, 567, 304, 306, 308, 310 


<201> 


250 IFI>IMTHENIM=I 


<60> 


3010 DATA1591 ,567,311 ,310,567 


<93> 


2<bO NEXT 


<135> 


3020 DATA306, 304, 299,308 


<27> 


500 FOKES+5 , 63 i POKES+6 , 240 : PDKES+ 12 , 9 : PG 




3030 DATA304 ,171,176, 306 , 29 1 , 55 1 , 306 , 308 


<2> 


KES+13,9:Pa«ES+19,119:POKES+20,7 


<170> 


3040 DATA310 , 308 ,310, 306 , 295 , 297 , 299 , 304 


<67> 


530 POKES+24,31 


<16> 


3O50 DATA1 586, 562, 567, 3 10,315,311 


<23> 


550 FORI=OTOIM:POKES,L(0,I) : POKES+7 , L ( 1 , 




3060 DATA308,313,297 


<220> 


I)=PGKEB+14,L(2,I) 


<26> 


3070 DATA 1586, 567, 560,311 ,309 


<144> 


560 POKES+1 T H (O , I > : POKES+S , H < 1 , I ) j POKES+ 




3080 DATA30S, 309, 306,308 


<11> 


15,H(2,I) 


<11> 


3O90 DATA1577, 299, 295, 306, 310,311 ,304 


<86> 


570 P0KES+4,C(0,I) : PGKES+1 1 , C < 1 , I ) :POKES 




3100 DATA562, 546, 1575 


<1S3> 


+18,C(2,I) 


<58> 


3999 DATAO 


<145> 



O ptimiertes Basic pro gramm für den Profi 

Fortsetzung von Seite 63 



so kann man sich die ganze Sache natürlich 
vereinfachen, in dem man das neue Unter- 
programm statt mit GOSUB mit GOTO 
aufruft. Das RETURN am Ende des zwei- 
ten Unterprogramms läßt das Programm 
zu dem Befehl zurückkehren, derdem Auf- 
ruf des ersten Unterprogramms folgt. 

Beispiel: 

10 GOSUB 1000 

1000 REM Unterprogramm I 

1010 A=SQR(25) 

1020 GOSUB 2000 

1030 RETURN 

2000 REM Unterprogramm II 

2010PRINTA 

2020 RETURN 

Dieser Programmausschnitt ist gleichbe- 
deutend mit folgendem: 
10 GOSUB 1000 
1000 REM Unterprogramm I 
1010 A=SQR(25) 
1020 GOTO 2000 
2000 REM Unterprogramm II 
2010PRINT A 
2020 RETURN 



Das gleiche Verfahren läßt sich im Übrigen 
auch bei Assemblerprqgrammen mit dem 
JSR und dem RTS-Befehl (beim 6502) an- 
wenden. So kann Speicherplatz und Zeit 
gespart werden. 



Fazit: Mit diesen Tips 

kann man in fast 
allen Fällen einiges an 
Rechenzeit einsparen. 
Probieren Sie es doch 

einmal selbst an 

Ihrem Rechner aus! — 

Die Mühe lohnt sich 

wirklich!! 



Computerchib 
Husum C.C.H. 

Husum (S.G.) - Der C.C.H. besteht 
seit Mai 1985. Ursprünglich war er als 
regionaler Club für Besitzer diverser 
Computer gedacht. Durch die Mailbox 
hat er sich aber über das gesamte Bun- 
desgebiet und Österreich ausgebreitet. 
Die Altersstruktur der Mitglieder er- 
streckt sich von 15 bis 48 Jahren. Vor- 
handene Rechner sind zur Zeit C-64, 
Schneider, Atari, Acom A und B. 
Der Austausch von Erfahrungen und 
Informationen ist vorrangiges Ziel des 
Clubs. Statt des geplanten direkten 
Austausches erfolgt dieser wegen der 
großen Verbreitung im Rahmen eines 
noch unregelmäßig erscheinenden In- 
fos und über die TINE-Mailbox 
(048 41/18 81), die 24 Stunden online 
ist. 

Anfragen zum Club an: 

Hau» Walter Latus * 

Postfach 13 47 

2730 Zeven 

Tel: 04281/64 42 

oder in der Mailbox an FESTUS. 
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SOFTWARE-KATALOG %t COMPUTRONIC-SPITZEN-Software 




Programm 



Preis/ 
Kassette 



Preis/ 
Diskette 



Bestell-Nr 



Mauern/ Widerstand 


8,- 


15 — 


C 41 


Space-Comets/Erdspalte/Sprite-Data 


15 — 


23,50 


C 51 


Autostart/ Beste Üschein/Roadpainter 


16,50 


23,50 


C 61 


Hardcopy/Space-Fighter/ 
Data-Gene raior 


15,50 


19,50 


C 71 


Monster-Attack/Bloek-Painter/ 

Epson-Drucker 


16,50 


23,50 


C 81 


Projekt/Datenbank 


16,— 


23,50 


C 91 


Spiders/The Basic 


16,50 


23,50 


C 101 


High Noon/Skeet/Grafik/Designer 


17,50 


23,50 


C 121 


Painter/Siar-Battle/Editor 


17,50 


23,50 


C 22 


Wüstenrallye/Jet-Pac/Black Moore Castle 


17,50 


23,50 


C 32 


Brieftau.be/Cadelon 


19,50 


24,50 


C 42 


Ritter Erik/Grand Prix/Spritehüfe 


19,50 


24,50 


C 52 


Firebird/High Music 


24,50 


29,50 


C 62 


Moonsweeper/Scotti 


24,50 


29,50 


C 72 


Tron/Mercurious 


24,50 


29,50 


C 13 


Interceptor Base/Schotter 


24,50 


29,50 


C 23 




P nigra mm 



Preis/ 
Kassette 



Preis/ 
Diskette 



Bestell- Nr. 



Beste! Isehein/Glücky 


8,50 


15,- " 


V 61 


Multigraph/All Rammer 


IE— 


15,50 


V 71 


Zyklo/Meteorit 


11 — 


1 9,50 


V 81 


Garten/Schloß Gruselstein 


14,— 


19,50 


V 91 


Fressmann/Outlaw 


14,— 


19,50 . 


V 101 


Prost/BuffaloBill 


14,— 


19,50 


V 121 


Joy Man/Powcrpack 


14,— 


19,50 


V 22 


Der rasende Malocher 


14,— 


19,50 


V 32 


Matron/Obst 


14 — 


19,50 


V 42 


Race On/Cagy 


14,— 


19,50 


V 52 


Nürburg - 3 D/Düsi 


14,— 


19,50 


V 62 


Breaker/Expulsion 


14,— 


19,50 


V 72 


Brückenbau/ Jango 


16,— 


21,50 


V 13 


Miner, der Fassadenstreicher/Inkäschatz 


16 — 


21,50 


V 23 




Programm 



Preis/ 
Kassette 



Preis/ 
Diskette 



Bestell-Nr, 



Horror Castle/Fantasv Countv 



23, 



23 



Bitte beachten Sie: Wenn Sie bei Ihrer Bestellung auf die 
sogenannte „Vorkasse" zurückgreifen, so ersparen Sie sich 
viel Geld. Das gilt besonders für unsere ausländischen 
Freunde; da die Nebenkosten derart hoch sind, schicken 
wir keine Bestellung per Nachnahme ins Ausland. Schik- 
ken Sie uns deshalb einen Bar- oder Verrechnungsscheck, 
Postanweisung oder Bargeld. (Die Nebenkosten in der 
BRD - Nachnahme - betragen 5 DM) 




Programm 



Preis/ 
Kassette 



Bestell-Nr. 



Moon-Crash/ZX-Draw 


10 — 


Z 61 


Ton programm/ Aldebaran 


10- 


Z 71 


Reversi 


10 — 


Z 91 


Panik Labyrinth 


10,- 


Z 101 


Expedition 


10,— 


Z 121 


Spinnen 


14,50 


Z 22 


Spukhaus 


14,50 


Z 32 


Frogger 


14,50 


Z 42 


Olympiade 


15,50 


Z 52 


Spider Mutante 


15,50 


Z 72 


Der Elektroniker 


10,— 


Z 13 




Programm 



Preis/ 
Kassette 



Bestell-Nr. 



Drei-Kronen-Spiel/Zahlenputzen 


8,50 


T 41 


Karl der Käfer/ Alien-Landing 


14,50 


F 51 


Jack the Digger I 


14,50 


T 61 


Lift Bär/ASCII DEF Teil 1 


14 — 


T 71 


Maya/ASC II DEF Teil 2 


14,50 


T 81 


Transfer/Silverspar 


14,50 


T 91 


Mother Duck/Screen Designer 


14,50 


T 101 


Cave Man 


8,— 


T 121 


Moon Race/Frogger/Slicks 


19,50 


T 22 


Panzerschlacht 


8,- 


T 32 


Maya II/Jagdszene Chikago 


16,50 


T 42 


Rakcten-Beschuß/Fire-Fox 


■ 16,50 


T 52 


Miner 99 


14,50 


T 62 


Stardust 


16.50 


T 72 


Jäger des verlorenen Schatzes 


14,50 


T 13 


Thai-Boxing 


12.50 


T 23 




800 XL (*600) 



Programm 



Preis/ 
Kassette 



Preis/ 
Diskette 



Bestell-Nr. 



Maslermind*/Sdh1angcn krieg* 


10,50 


19,50 


I 41 


Tänk-Battle/Oil Panic 


12,50 


- 


1 51 


Startup/Zeilen-Split/Tomstone-City 


- 


19,50 


1 71 


Painter/Hardcopy 


14,— 


19,50 


I 81 


The Big Quest/Fünf gewinnt 


14,— 


19,50 


I 91 


Splitt** 


11,— 


17,50 


I 101 


Ski/Mulation* 


14,50 


19,50 


1121 


Super Miner/Diarnonds 


14,50 


19,50 


I 22 


Donkey Kong/Kerzenheinz 


16,50 


19,50 


I 32 


Fighting/Escape from Earth 


16,50 


19,50 


I 42 


IIöhlen-IIerbert/Ball Harbour 


' 16,50 


19,50 


1 52 


Aquanaut* » 


16,50 


, 19,50 


I 62 


Jumping Ghost/Soundtrack 


16,50 


19,50 


1 72 


Groove 


- 


29,50 


1 13 A 


Treter/Cavehunt 


11 — 


16,— 


I 13B 


Top Tennis/Panzerschlacht 


16,50- 


21,50 


I 23 



Com putronic 



zu unglaublich günstigen Preisen 



4 
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SOFTWARE-KAIALOG 



r^oppkz 



Programm 



Preis/ 
Diskette 



Bestell-Nr. 



Wilder Westen/Karambolage/Maskengenerator 


19,50 


A 41 


Music-Maker/Mission; Adler 
Däsk-Katalog 


19,50 


A 51 


Snake/Super Datei/Shape-tables 


19,50 


A 61 


Library/Fight 


19,50 


A 71 


Reversal/Disk-Menue-Generator 


19,50 


A 81 


Diamonds/Hilfsprograrnm 


19,50 


A 91 


Tic-Täc-Toe/Jumper 


19,50 


A 101 


Dono van/Basic-Konverter 


19,50 


A 121 


Funktionstasten/Painter/Bowiing 


19,50 


A 22 


Tlrunder/Castle of Doom 


19,50 


A 32 


Hubschrauber 


19,50 


A 42 


Widerstandsdecodierung/Soft-Talker 


16,50 


A 52 


Atlantic Gold/Vier gewinnt 


16,50 


A 72 


Prodata/Music Editor 


19,50 


A 13 


Pac Boy 


16,50 


A 23 



iinczlair- 
Spectrunfi^ 



Programm 



Preis/ 
Kassette 



Bestell-Nr. 



.Schneider 



CIP©«« 



Programm 



Preis,/ 

Kassette 



Preis/ 
Diskette 



Bestell-Nr 



Super Miner 




14,— 


24,— 


SR 41 


CPC-Bert 




14 — 


24 — 


SR 52 


Co n an 's Castle 




25,50 


15,50 


SR 62 


Snider's Macc 




16,50 


26,50 


SR 72 


Schneider Panik/Killcr 


Ship 


18,50 


28,50 


SR 13 


Vlidnight/Hotror Caves 




18,50 


28,50 


SR 23 , 





Inventur 


12 — 


S 41 


Missle-Comment 


8,50 


S 51 


Defender 
Lui der Wurm 

Alternativer Zeichensatz 


13,50 


S 61 


Matheprogramm 
Bongo-Beecatcher 


12,50 


S 71 


Solitaire 

Superstat 

Kleinstes gern Vielfache 


14,50 


S 81 


Jump aboui 


14,50 


S 91 


Pac-Man 
Oi! Panic 


14,50 


S 101 


Frogger 


16,- 


S 121 


Jump 


14,50 


S 22 


Jet Set Freddie 


8,- 


S 32 


Andromcda 


14,50 


S 42 


Totenkopf 


14,50 


S 52 


Willibald 


15,50 


S 62 


Squares 


15,50 


S 72 


Karl der Käfer 


15,50 


S 13 


Otto Schwel nsohr/Ausschnittkopierer 


16,50 


S 23 



Machen Sie es wie 
Bodo Ballermann*: 

Sichern auch SIE sich 
rechtzeitig die superpreis- 
werten SÖFTWARE- 

Angebote von TRONIC! 
Bei diesen tollen Preisen 
gibt's nur eins: 



ZUGREIFEN 



* (Außenstürmer des FC Freakdorf, 21 A-Länderspiele) 

Computronic 




JVa komm sehen, Bodo, laß mich doch wenigstens 
mal in Beine Tusche reims.chau6ti! u 
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Cmmodere 64 



BM 29,50 



!*=* I 



Das TENNIS-Fieber hat uns alle ergriffen. Nicht zu- ;,; ? 
letzt durch die großartigen Erfolge von Boris Becker ist >~ 
der „Weiße Sport" zu einem Volkssport geworden! In .- - 
unserem Game treten zwei Tennis-Cracks gegeneinan- 
der an; sie schenken sich nichts; um jeden Ball wird ge- 
kämpft, Das Spiel basiert auf den Grundregeln des int j 
ernationalen Tennis'. Hart umkämpfte Tie-Breaks sind 
ebenso an der Tagesordnung wie ein zermürbendes 
Fünfsatz-Spiel. . 

Sie haben hierbei die Möglichkeit, Ballgeschwindigkeit 
und Ballwinkel zu variieren. Aufgeschlagen wird per 
„Knopfdruck". Ein Superspiel in 3 D-Effekt. 



fc 



ZX-Spectrum 



DM19,50 
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Der alte Magier will einen Zaubertrank brauen. Dazu 
benötigt er allerlei Zutaten. 

Also ist er unterwegs, um Spinnen, Kraken, Pilze und 
andere Gegenstände einzusammeln. Doch Hexen, Fle- 
dermäuse und anderes Ungetier versuchen ihn daran zu 
hindern. Der Magier ist aber nicht hilflos! 
Die Monster kann er mit Zaubersternen abwehren. Hat 
er eine Zutat gefunden, so muß er sie in den Topf wer- 
fen. Ein Spaß für die ganze Familie. 



«^»1 
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Postfach ■ D-3444 Wehretal 1 Tel. 05651/40643 



